/[Arh]/t/00-model-UnitMaterial.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /t/00-model-UnitMaterial.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 22 by dpavlin, Fri Nov 30 20:13:06 2007 UTC revision 28 by dpavlin, Mon Dec 10 14:56:12 2007 UTC
# Line 8  A basic test harness for the UnitMateria Line 8  A basic test harness for the UnitMateria
8    
9  =cut  =cut
10    
11  use Jifty::Test tests => 20;  use Jifty::Test tests => 16;
12    
13  # Make sure we can load the model  # Make sure we can load the model
14  use_ok('Arh::Model::UnitMaterial');  use_ok('Arh::Model::UnitMaterial');
15    use_ok('Arh::Test');
16    
17  # Grab a system user  # Grab a system user
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 $place = Arh::Model::Place->new, 'Place' );  ok( my $unit = Arh::Test->Unit, 'Unit' );
 ok($place->create(  
         name => 'mjesto iskapanja',  
 ), 'create' );  
   
 ok(my $campaign = Arh::Model::Campaign->new, 'Campaign' );  
 ok($campaign->create(  
         place => $place,  
         name => 'prvo iskapanje',  
         date_from => '2007-11-28',  
         date_to => '2008-03-15',  
 ), 'create' );  
   
 ok( my $unit = Arh::Model::Unit->new, 'Unit' );  
 ok( $unit->create(  
         name => 'test unit',  
         number => 42,  
         campaign => $campaign,  
 ), 'create' );  
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(
Legend:
Removed from v.22  
changed lines
  Added in v.28
  ViewVC Help
Powered by ViewVC 1.1.26