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/16_client_find_instances.t

    r2872 r4440  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 16_client_find_instances.t,v 1.5 2005-01-03 23:55:29 jhoblitt Exp $
     5# $Id: 16_client_find_instances.t,v 1.6 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" );
     29    $neb->create( "foo" );
    3030
    31     my $locations = $idata->find_instances( "foo" );
     31    my $locations = $neb->find_instances( "foo" );
    3232
    3333    is( scalar @$locations, 1, "found 1" );
     
    3636}
    3737
    38 Test::IData->setup;
     38Test::Nebulous->setup;
    3939
    4040{
    4141    # key
    42     my $idata = PS::IPP::IData::Client->new(
    43         proxy => "http://$hostport/idata",
     42    my $neb = Nebulous::Client->new(
     43        proxy => "http://$hostport/nebulous",
    4444    );
    45     $idata->create( "foo" );
    46     $idata->replicate( "foo" );
     45    $neb->create( "foo" );
     46    $neb->replicate( "foo" );
    4747
    48     my $locations = $idata->find_instances( "foo" );
     48    my $locations = $neb->find_instances( "foo" );
    4949
    5050    is( scalar @$locations, 2, "found 2" );
     
    5555}
    5656
    57 Test::IData->setup;
     57Test::Nebulous->setup;
    5858
    5959{
    6060    # key, volume
    61     my $idata = PS::IPP::IData::Client->new(
    62         proxy => "http://$hostport/idata",
     61    my $neb = Nebulous::Client->new(
     62        proxy => "http://$hostport/nebulous",
    6363    );
    64     $idata->create( "foo" );
     64    $neb->create( "foo" );
    6565
    66     my $locations = $idata->find_instances( "foo", "node01" );
     66    my $locations = $neb->find_instances( "foo", "node01" );
    6767
    6868    is( scalar @$locations, 1, "found 1" );
     
    7171}
    7272
    73 Test::IData->setup;
     73Test::Nebulous->setup;
    7474
    7575{
    7676    # key
    77     my $idata = PS::IPP::IData::Client->new(
    78         proxy => "http://$hostport/idata",
     77    my $neb = Nebulous::Client->new(
     78        proxy => "http://$hostport/nebulous",
    7979    );
    80     $idata->create( "foo" );
    81     $idata->replicate( "foo" );
     80    $neb->create( "foo" );
     81    $neb->replicate( "foo" );
    8282
    83     my $locations = $idata->find_instances( "foo", "node01" );
     83    my $locations = $neb->find_instances( "foo", "node01" );
    8484
    8585    is( scalar @$locations, 2, "found 2" );
     
    9090}
    9191
    92 Test::IData->setup;
     92Test::Nebulous->setup;
    9393
    9494{
    95     my $idata = PS::IPP::IData::Client->new(
    96         proxy => "http://$hostport/idata",
     95    my $neb = Nebulous::Client->new(
     96        proxy => "http://$hostport/nebulous",
    9797    );
    9898
    99     is( $idata->find_instances( "foo" ), undef, "storage object does not exist" );
     99    is( $neb->find_instances( "foo" ), undef, "storage object does not exist" );
    100100}
    101101
    102 Test::IData->setup;
     102Test::Nebulous->setup;
    103103
    104104eval {
    105     my $idata = PS::IPP::IData::Client->new(
    106         proxy => "http://$hostport/idata",
     105    my $neb = Nebulous::Client->new(
     106        proxy => "http://$hostport/nebulous",
    107107    );
    108108
    109     $idata->find_instances();
     109    $neb->find_instances();
    110110};
    111111like( $@, qr/1 - 2 were expected/, "no params" );
    112112
    113 Test::IData->setup;
     113Test::Nebulous->setup;
    114114
    115115eval {
    116     my $idata = PS::IPP::IData::Client->new(
    117         proxy => "http://$hostport/idata",
     116    my $neb = Nebulous::Client->new(
     117        proxy => "http://$hostport/nebulous",
    118118    );
    119119
    120     $idata->find_instances( "foo", 'read', 3 );
     120    $neb->find_instances( "foo", 'read', 3 );
    121121};
    122122like( $@, qr/1 - 2 were expected/, "too many params" );
    123123
    124 Test::IData->cleanup;
     124Test::Nebulous->cleanup;
Note: See TracChangeset for help on using the changeset viewer.