Parent Directory | Revision Log | Patch
revision 27 by dpavlin, Thu Dec 6 16:57:13 2007 UTC | revision 28 by dpavlin, Mon Dec 10 14:56:12 2007 UTC | |
---|---|---|
# | Line 18 use_ok('Arh::Test'); | Line 18 use_ok('Arh::Test'); |
18 | my $system_user = Arh::CurrentUser->superuser; | my $system_user = Arh::CurrentUser->superuser; |
19 | ok($system_user, "Found a system user"); | ok($system_user, "Found a system user"); |
20 | ||
21 | ok( my $unit = Arh::Test->create_unit, 'unit' ); | ok( my $unit = Arh::Test->Unit, 'Unit' ); |
22 | ||
23 | ok( my $material = Arh::Model::Material->new, 'Material' ); | ok( my $material = Arh::Model::Material->new, 'Material' ); |
24 | ok( $material->create( | ok( $material->create( |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |