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/13_client_cull.t

    r2872 r4440  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 13_client_cull.t,v 1.3 2005-01-03 23:55:29 jhoblitt Exp $
     5# $Id: 13_client_cull.t,v 1.4 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{
    2525    # 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",
    2828    );
    29     $idata->create( "foo" );
    30     $idata->replicate( "foo" );
     29    $neb->create( "foo" );
     30    $neb->replicate( "foo" );
    3131
    32     my $uri = $idata->cull( "foo" );
     32    my $uri = $neb->cull( "foo" );
    3333
    3434    ok( $uri, "good cull" );
    … …  
    3636}
    3737
    38 Test::IData->setup;
     38Test::Nebulous->setup;
    3939
    4040SKIP: {
    … …  
    4242
    4343    # key, $volume
    44     my $idata = PS::IPP::IData::Client->new(
    45         proxy => "http://$hostport/idata",
     44    my $neb = Nebulous::Client->new(
     45        proxy => "http://$hostport/nebulous",
    4646    );
    47     $idata->create( "foo" );
    48     $idata->replicate( "foo", "node01" );
     47    $neb->create( "foo" );
     48    $neb->replicate( "foo", "node01" );
    4949
    50     my $uri = $idata->cull( "foo", "node01" );
     50    my $uri = $neb->cull( "foo", "node01" );
    5151
    5252    ok( $uri, "good cull" );
    … …  
    5454}
    5555
    56 Test::IData->setup;
     56Test::Nebulous->setup;
    5757
    5858{
    5959    # key
    60     my $idata = PS::IPP::IData::Client->new(
    61         proxy => "http://$hostport/idata",
     60    my $neb = Nebulous::Client->new(
     61        proxy => "http://$hostport/nebulous",
    6262    );
    63     $idata->create( "foo" );
     63    $neb->create( "foo" );
    6464
    65     $idata->replicate( "foo", "node01" );
    66     $idata->replicate( "foo", "node02" );
     65    $neb->replicate( "foo", "node01" );
     66    $neb->replicate( "foo", "node02" );
    6767
    68     my $uri1 = $idata->cull( "foo" );
    69     my $uri2 = $idata->cull( "foo" );
     68    my $uri1 = $neb->cull( "foo" );
     69    my $uri2 = $neb->cull( "foo" );
    7070
    7171    ok( $uri1, "good cull" );
    … …  
    7575}
    7676
    77 Test::IData->setup;
     77Test::Nebulous->setup;
    7878
    7979SKIP: {
    … …  
    8181
    8282    # key, $volume
    83     my $idata = PS::IPP::IData::Client->new(
    84         proxy => "http://$hostport/idata",
     83    my $neb = Nebulous::Client->new(
     84        proxy => "http://$hostport/nebulous",
    8585    );
    86     $idata->create( "foo" );
     86    $neb->create( "foo" );
    8787
    88     $idata->replicate( "foo", "node01" );
    89     $idata->replicate( "foo", "node02" );
     88    $neb->replicate( "foo", "node01" );
     89    $neb->replicate( "foo", "node02" );
    9090
    91     my $uri1 = $idata->cull( "foo", "node01" );
    92     my $uri2 = $idata->cull( "foo", "node02" );
     91    my $uri1 = $neb->cull( "foo", "node01" );
     92    my $uri2 = $neb->cull( "foo", "node02" );
    9393
    9494    ok( $uri1, "good cull" );
    … …  
    9898}
    9999
    100 Test::IData->setup;
     100Test::Nebulous->setup;
    101101
    102102{
    103     my $idata = PS::IPP::IData::Client->new(
    104         proxy => "http://$hostport/idata",
     103    my $neb = Nebulous::Client->new(
     104        proxy => "http://$hostport/nebulous",
    105105    );
    106     my $uri = $idata->cull( "foo" );
     106    my $uri = $neb->cull( "foo" );
    107107
    108108    is( $uri, undef, "storage object does not exist" );
    109109}
    110110
    111 Test::IData->setup;
     111Test::Nebulous->setup;
    112112
    113113eval {
    114     my $idata = PS::IPP::IData::Client->new(
    115         proxy => "http://$hostport/idata",
     114    my $neb = Nebulous::Client->new(
     115        proxy => "http://$hostport/nebulous",
    116116    );
    117     $idata->cull();
     117    $neb->cull();
    118118};
    119119like( $@, qr/1 was expected/, "no params" );
    120120
    121 Test::IData->setup;
     121Test::Nebulous->setup;
    122122
    123123eval {
    124     my $idata = PS::IPP::IData::Client->new(
    125         proxy => "http://$hostport/idata",
     124    my $neb = Nebulous::Client->new(
     125        proxy => "http://$hostport/nebulous",
    126126    );
    127     $idata->cull( 1, 2 );
     127    $neb->cull( 1, 2 );
    128128};
    129129like( $@, qr/1 was expected/, "too many params" );
    130130
    131 Test::IData->cleanup;
     131Test::Nebulous->cleanup;
Note: See TracChangeset for help on using the changeset viewer.