Changeset 4440 for trunk/Nebulous-Server/t/23_client_stat.t
- Timestamp:
- Jun 29, 2005, 4:35:06 PM (21 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous-Server/t/23_client_stat.t (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/t/23_client_stat.t
r3016 r4440 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 23_client_stat.t,v 1. 2 2005-01-15 04:02:12jhoblitt Exp $5 # $Id: 23_client_stat.t,v 1.3 2005-06-30 02:35:06 jhoblitt Exp $ 6 6 7 7 use strict; … … 14 14 use lib qw( ./t ./lib ); 15 15 16 use PS::IPP::IData::Client;17 use PS::IPP::IData::Util qw( :standard );18 use Test:: IData;16 use Nebulous::Client; 17 use Nebulous::Util qw( :standard ); 18 use Test::Nebulous; 19 19 20 20 my $hostport = Apache::Test->config->{ 'hostport' }; 21 21 22 Test:: IData->setup;22 Test::Nebulous->setup; 23 23 24 24 { 25 my $ idata = PS::IPP::IData::Client->new(26 proxy => "http://$hostport/ idata",25 my $neb = Nebulous::Client->new( 26 proxy => "http://$hostport/nebulous", 27 27 ); 28 $ idata->create( "foo" );28 $neb->create( "foo" ); 29 29 30 my $info = $ idata->stat( "foo" );30 my $info = $neb->stat( "foo" ); 31 31 32 32 is( scalar @$info, 8, "number of columns" ); 33 33 } 34 34 35 Test:: IData->setup;35 Test::Nebulous->setup; 36 36 37 37 { 38 my $ idata = PS::IPP::IData::Client->new(39 proxy => "http://$hostport/ idata",38 my $neb = Nebulous::Client->new( 39 proxy => "http://$hostport/nebulous", 40 40 ); 41 $ idata->create( "foo", 9, "node01", "foobar" );41 $neb->create( "foo", 9, "node01", "foobar" ); 42 42 43 my $info = $ idata->stat( "foo" );43 my $info = $neb->stat( "foo" ); 44 44 45 45 is( scalar @$info, 8, "number of columns" ); … … 54 54 } 55 55 56 Test:: IData->setup;56 Test::Nebulous->setup; 57 57 58 58 { 59 my $ idata = PS::IPP::IData::Client->new(60 proxy => "http://$hostport/ idata",59 my $neb = Nebulous::Client->new( 60 proxy => "http://$hostport/nebulous", 61 61 ); 62 my $info = $ idata->stat( "foo" );62 my $info = $neb->stat( "foo" ); 63 63 64 64 is( $info, undef, "object does not exist" ); 65 65 } 66 66 67 Test:: IData->setup;67 Test::Nebulous->setup; 68 68 69 69 eval { 70 my $ idata = PS::IPP::IData::Client->new(71 proxy => "http://$hostport/ idata",70 my $neb = Nebulous::Client->new( 71 proxy => "http://$hostport/nebulous", 72 72 ); 73 $ idata->stat();73 $neb->stat(); 74 74 }; 75 75 like( $@, qr/1 was expected/, "no params" ); 76 76 77 Test:: IData->setup;77 Test::Nebulous->setup; 78 78 79 79 eval { 80 my $ idata = PS::IPP::IData::Client->new(81 proxy => "http://$hostport/ idata",80 my $neb = Nebulous::Client->new( 81 proxy => "http://$hostport/nebulous", 82 82 ); 83 $ idata->stat( "foo", 2 );83 $neb->stat( "foo", 2 ); 84 84 }; 85 85 like( $@, qr/1 was expected/, "too many params" ); 86 86 87 Test:: IData->cleanup;87 Test::Nebulous->cleanup;
Note:
See TracChangeset
for help on using the changeset viewer.
