Changeset 13092 for trunk/Nebulous/t/51_client_open_create.t
- Timestamp:
- Apr 30, 2007, 4:52:04 PM (19 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous/t/51_client_open_create.t (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous/t/51_client_open_create.t
r12960 r13092 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 51_client_open_create.t,v 1. 2 2007-04-23 20:42:29jhoblitt Exp $5 # $Id: 51_client_open_create.t,v 1.3 2007-05-01 02:52:04 jhoblitt Exp $ 6 6 7 7 use strict; … … 10 10 use Apache::Test qw( -withtestmore ); 11 11 12 plan tests => 7;12 plan tests => 5; 13 13 14 14 use lib qw( ./t ./lib ); … … 36 36 37 37 { 38 # key, class38 # key, volume 39 39 my $neb = Nebulous::Client->new( 40 40 proxy => "http://$hostport/nebulous", 41 41 ); 42 42 43 my $fh = $neb->open_create( "foo", 0 ); 44 45 is(ref $fh, 'GLOB', "good filehandle"); 46 } 47 48 Test::Nebulous->setup; 49 50 { 51 # key, class, volume 52 my $neb = Nebulous::Client->new( 53 proxy => "http://$hostport/nebulous", 54 ); 55 56 my $fh = $neb->open_create("foo", 0, "node01"); 57 58 is(ref $fh, 'GLOB', "good filehandle"); 59 } 60 61 Test::Nebulous->setup; 62 63 { 64 # key, class, volume, comment 65 my $neb = Nebulous::Client->new( 66 proxy => "http://$hostport/nebulous", 67 ); 68 69 my $fh = $neb->open_create("foo", 0, "node01", "this is foo"); 43 my $fh = $neb->open_create("foo", "node01"); 70 44 71 45 is(ref $fh, 'GLOB', "good filehandle"); … … 92 66 $neb->open_create(); 93 67 }; 94 like($@, qr/ 2 - 4were expected/, "no params");68 like($@, qr/1 - 2 were expected/, "no params"); 95 69 96 70 Test::Nebulous->setup; … … 101 75 ); 102 76 103 $neb->open_create(1, 2, 3 , 4, 5);77 $neb->open_create(1, 2, 3); 104 78 }; 105 like($@, qr/ 2 - 4were expected/, "too many params");79 like($@, qr/1 - 2 were expected/, "too many params"); 106 80 107 81 Test::Nebulous->cleanup;
Note:
See TracChangeset
for help on using the changeset viewer.
