IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Jun 29, 2005, 4:35:06 PM (21 years ago)
Author:
jhoblitt
Message:

rename PS::IPP::IData -> Nebulous

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Nebulous-Server/t/23_client_stat.t

    r3016 r4440  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 23_client_stat.t,v 1.2 2005-01-15 04:02:12 jhoblitt Exp $
     5# $Id: 23_client_stat.t,v 1.3 2005-06-30 02:35:06 jhoblitt Exp $
    66
    77use strict;
     
    1414use lib qw( ./t ./lib );
    1515
    16 use PS::IPP::IData::Client;
    17 use PS::IPP::IData::Util qw( :standard );
    18 use Test::IData;
     16use Nebulous::Client;
     17use Nebulous::Util qw( :standard );
     18use Test::Nebulous;
    1919
    2020my $hostport = Apache::Test->config->{ 'hostport' };
    2121
    22 Test::IData->setup;
     22Test::Nebulous->setup;
    2323
    2424{
    25     my $idata = PS::IPP::IData::Client->new(
    26         proxy => "http://$hostport/idata",
     25    my $neb = Nebulous::Client->new(
     26        proxy => "http://$hostport/nebulous",
    2727    );
    28     $idata->create( "foo" );
     28    $neb->create( "foo" );
    2929
    30     my $info = $idata->stat( "foo" );
     30    my $info = $neb->stat( "foo" );
    3131
    3232    is( scalar @$info, 8, "number of columns" );
    3333}
    3434
    35 Test::IData->setup;
     35Test::Nebulous->setup;
    3636
    3737{
    38     my $idata = PS::IPP::IData::Client->new(
    39         proxy => "http://$hostport/idata",
     38    my $neb = Nebulous::Client->new(
     39        proxy => "http://$hostport/nebulous",
    4040    );
    41     $idata->create( "foo", 9, "node01", "foobar" );
     41    $neb->create( "foo", 9, "node01", "foobar" );
    4242
    43     my $info = $idata->stat( "foo" );
     43    my $info = $neb->stat( "foo" );
    4444
    4545    is( scalar @$info, 8,                       "number of columns" );
     
    5454}
    5555
    56 Test::IData->setup;
     56Test::Nebulous->setup;
    5757
    5858{
    59     my $idata = PS::IPP::IData::Client->new(
    60         proxy => "http://$hostport/idata",
     59    my $neb = Nebulous::Client->new(
     60        proxy => "http://$hostport/nebulous",
    6161    );
    62     my $info = $idata->stat( "foo" );
     62    my $info = $neb->stat( "foo" );
    6363
    6464    is( $info, undef, "object does not exist" );
    6565}
    6666
    67 Test::IData->setup;
     67Test::Nebulous->setup;
    6868
    6969eval {
    70     my $idata = PS::IPP::IData::Client->new(
    71         proxy => "http://$hostport/idata",
     70    my $neb = Nebulous::Client->new(
     71        proxy => "http://$hostport/nebulous",
    7272    );
    73     $idata->stat();
     73    $neb->stat();
    7474};
    7575like( $@, qr/1 was expected/, "no params" );
    7676
    77 Test::IData->setup;
     77Test::Nebulous->setup;
    7878
    7979eval {
    80     my $idata = PS::IPP::IData::Client->new(
    81         proxy => "http://$hostport/idata",
     80    my $neb = Nebulous::Client->new(
     81        proxy => "http://$hostport/nebulous",
    8282    );
    83     $idata->stat( "foo", 2 );
     83    $neb->stat( "foo", 2 );
    8484};
    8585like( $@, qr/1 was expected/, "too many params" );
    8686
    87 Test::IData->cleanup;
     87Test::Nebulous->cleanup;
Note: See TracChangeset for help on using the changeset viewer.