Changeset 4440 for trunk/Nebulous-Server/t/17_client_find.t
- Timestamp:
- Jun 29, 2005, 4:35:06 PM (21 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous-Server/t/17_client_find.t (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/t/17_client_find.t
r2872 r4440 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 17_client_find.t,v 1. 3 2005-01-03 23:55:29jhoblitt Exp $5 # $Id: 17_client_find.t,v 1.4 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 25 # key 26 my $ idata = PS::IPP::IData::Client->new(27 proxy => "http://$hostport/ idata",26 my $neb = Nebulous::Client->new( 27 proxy => "http://$hostport/nebulous", 28 28 ); 29 my $uri = $ idata->create( "foo" );29 my $uri = $neb->create( "foo" ); 30 30 31 my $path = $ idata->find( "foo" );31 my $path = $neb->find( "foo" ); 32 32 33 33 ok( -e $path, "file exists" ); 34 34 } 35 35 36 Test:: IData->setup;36 Test::Nebulous->setup; 37 37 38 38 { 39 my $ idata = PS::IPP::IData::Client->new(40 proxy => "http://$hostport/ idata",39 my $neb = Nebulous::Client->new( 40 proxy => "http://$hostport/nebulous", 41 41 ); 42 42 43 my $path = $ idata->find( "foo" );43 my $path = $neb->find( "foo" ); 44 44 45 45 ok( ! -e $path, "file doesn't exist" ); 46 46 } 47 47 48 Test:: IData->setup;48 Test::Nebulous->setup; 49 49 50 50 eval { 51 my $ idata = PS::IPP::IData::Client->new(52 proxy => "http://$hostport/ idata",51 my $neb = Nebulous::Client->new( 52 proxy => "http://$hostport/nebulous", 53 53 ); 54 54 55 $ idata->find();55 $neb->find(); 56 56 }; 57 57 like( $@, qr/1 was expected/, "no params" ); 58 58 59 Test:: IData->setup;59 Test::Nebulous->setup; 60 60 61 61 eval { 62 my $ idata = PS::IPP::IData::Client->new(63 proxy => "http://$hostport/ idata",62 my $neb = Nebulous::Client->new( 63 proxy => "http://$hostport/nebulous", 64 64 ); 65 65 66 $ idata->find( "foo", "bar" );66 $neb->find( "foo", "bar" ); 67 67 }; 68 68 like( $@, qr/1 was expected/, "too many params" ); 69 69 70 Test:: IData->cleanup;70 Test::Nebulous->cleanup;
Note:
See TracChangeset
for help on using the changeset viewer.
