Catching up after the holidays.
[kakapo:kakapo.git] / src / Test / Object.nqp
1 # Copyright (C) 2009, Austin Hastings. See accompanying LICENSE file, or 
2 # http://www.opensource.org/licenses/artistic-license-2.0.php for license.
3
4 class Kakapo::Test::Object;
5
6 INIT {
7         use(    'P6metaclass' );
8         
9         has(    'test_method' );
10 }
11
12 method run($result) {
13         $result.start_test(self);
14         Parrot::call_method(self, self.test_method);
15         $result.end_test(self);
16         $result.add_passing_test(self);
17 }