Changeset 4440 for trunk/Nebulous-Server/t/10_client_new.t
- Timestamp:
- Jun 29, 2005, 4:35:06 PM (21 years ago)
- File:
-
- 1 edited
-
trunk/Nebulous-Server/t/10_client_new.t (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/t/10_client_new.t
r2872 r4440 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 10_client_new.t,v 1. 3 2005-01-03 23:55:29jhoblitt Exp $5 # $Id: 10_client_new.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 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 28 29 isa_ok( $ idata, "PS::IPP::IData::Client" );29 isa_ok( $neb, "Nebulous::Client" ); 30 30 } 31 31 32 Test:: IData->setup;32 Test::Nebulous->setup; 33 33 34 34 { 35 my $ idata = PS::IPP::IData::Client->new(36 proxy => "http://$hostport/ idata",37 uri => "http://example.com/PS/IPP/ IData/Client",35 my $neb = Nebulous::Client->new( 36 proxy => "http://$hostport/nebulous", 37 uri => "http://example.com/PS/IPP/Nebulous/Client", 38 38 ); 39 39 40 isa_ok( $ idata, "PS::IPP::IData::Client" );40 isa_ok( $neb, "Nebulous::Client" ); 41 41 } 42 42 43 Test:: IData->setup;43 Test::Nebulous->setup; 44 44 45 45 eval { 46 PS::IPP::IData::Client->new;46 Nebulous::Client->new; 47 47 }; 48 48 like( $@, qr/Mandatory parameter/, "no proxy" ); 49 49 50 Test:: IData->setup;50 Test::Nebulous->setup; 51 51 52 52 eval { 53 PS::IPP::IData::Client->new(53 Nebulous::Client->new( 54 54 proxy => "foo", 55 55 dog => "do" … … 58 58 like( $@, qr/not listed in the validation options/, "bad param" ); 59 59 60 Test:: IData->cleanup;60 Test::Nebulous->cleanup;
Note:
See TracChangeset
for help on using the changeset viewer.
