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/15_client_unlock.t

    r2872 r4440  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 15_client_unlock.t,v 1.3 2005-01-03 23:55:29 jhoblitt Exp $
     5# $Id: 15_client_unlock.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{
    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" );
    29     $idata->lock( "foo", "read" );
     28    $neb->create( "foo" );
     29    $neb->lock( "foo", "read" );
    3030
    31     ok( $idata->unlock( "foo", "read" ), "read unlock" );
     31    ok( $neb->unlock( "foo", "read" ), "read unlock" );
    3232}
    3333
    34 Test::IData->setup;
     34Test::Nebulous->setup;
    3535
    3636{
    37     my $idata = PS::IPP::IData::Client->new(
    38         proxy => "http://$hostport/idata",
     37    my $neb = Nebulous::Client->new(
     38        proxy => "http://$hostport/nebulous",
    3939    );
    40     $idata->create( "foo" );
    41     $idata->lock( "foo", "read" );
    42     $idata->lock( "foo", "read" );
     40    $neb->create( "foo" );
     41    $neb->lock( "foo", "read" );
     42    $neb->lock( "foo", "read" );
    4343
    44     ok( $idata->unlock( "foo", "read" ), "read unlock" );
    45     ok( $idata->unlock( "foo", "read" ), "read unlock" );
     44    ok( $neb->unlock( "foo", "read" ), "read unlock" );
     45    ok( $neb->unlock( "foo", "read" ), "read unlock" );
    4646}
    4747
    48 Test::IData->setup;
     48Test::Nebulous->setup;
    4949
    5050{
    51     my $idata = PS::IPP::IData::Client->new(
    52         proxy => "http://$hostport/idata",
     51    my $neb = Nebulous::Client->new(
     52        proxy => "http://$hostport/nebulous",
    5353    );
    54     $idata->create( "foo" );
    55     $idata->lock( "foo", "write" );
     54    $neb->create( "foo" );
     55    $neb->lock( "foo", "write" );
    5656
    57     ok( $idata->unlock( "foo", "write" ), "write unlock" );
     57    ok( $neb->unlock( "foo", "write" ), "write unlock" );
    5858}
    5959
    60 Test::IData->setup;
     60Test::Nebulous->setup;
    6161
    6262{
    63     my $idata = PS::IPP::IData::Client->new(
    64         proxy => "http://$hostport/idata",
     63    my $neb = Nebulous::Client->new(
     64        proxy => "http://$hostport/nebulous",
    6565    );
    6666
    67     is( $idata->unlock( "foo", "read" ), undef, "storage object does not exist" );
     67    is( $neb->unlock( "foo", "read" ), undef, "storage object does not exist" );
    6868}
    6969
    70 Test::IData->setup;
     70Test::Nebulous->setup;
    7171
    7272{
    73     my $idata = PS::IPP::IData::Client->new(
    74         proxy => "http://$hostport/idata",
     73    my $neb = Nebulous::Client->new(
     74        proxy => "http://$hostport/nebulous",
    7575    );
    7676
    77     is( $idata->unlock( "foo", "write" ), undef, "storage object does not exist" );
     77    is( $neb->unlock( "foo", "write" ), undef, "storage object does not exist" );
    7878}
    7979
    80 Test::IData->setup;
     80Test::Nebulous->setup;
    8181
    8282{
    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     is( $idata->unlock( "foo", "read" ), undef, "no lock set" );
     88    is( $neb->unlock( "foo", "read" ), undef, "no lock set" );
    8989}
    9090
    91 Test::IData->setup;
     91Test::Nebulous->setup;
    9292
    9393{
    94     my $idata = PS::IPP::IData::Client->new(
    95         proxy => "http://$hostport/idata",
     94    my $neb = Nebulous::Client->new(
     95        proxy => "http://$hostport/nebulous",
    9696    );
    97     $idata->create( "foo" );
     97    $neb->create( "foo" );
    9898
    99     is( $idata->unlock( "foo", "write" ), undef, "no lock set" );
     99    is( $neb->unlock( "foo", "write" ), undef, "no lock set" );
    100100}
    101101
    102 Test::IData->setup;
     102Test::Nebulous->setup;
    103103
    104104{
    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    );
    108     $idata->create( "foo" );
    109     $idata->lock( "foo", "write" );
     108    $neb->create( "foo" );
     109    $neb->lock( "foo", "write" );
    110110
    111     is( $idata->unlock( "foo", "read" ), undef, "read unlock under write lock" );
     111    is( $neb->unlock( "foo", "read" ), undef, "read unlock under write lock" );
    112112}
    113113
    114 Test::IData->setup;
     114Test::Nebulous->setup;
    115115
    116116{
    117     my $idata = PS::IPP::IData::Client->new(
    118         proxy => "http://$hostport/idata",
     117    my $neb = Nebulous::Client->new(
     118        proxy => "http://$hostport/nebulous",
    119119    );
    120     $idata->create( "foo" );
    121     $idata->lock( "foo", "read" );
     120    $neb->create( "foo" );
     121    $neb->lock( "foo", "read" );
    122122
    123     is( $idata->unlock( "foo", "write" ), undef, "write unlock under read lock" );
     123    is( $neb->unlock( "foo", "write" ), undef, "write unlock under read lock" );
    124124}
    125125
    126 Test::IData->setup;
     126Test::Nebulous->setup;
    127127
    128128eval {
    129     my $idata = PS::IPP::IData::Client->new(
    130         proxy => "http://$hostport/idata",
     129    my $neb = Nebulous::Client->new(
     130        proxy => "http://$hostport/nebulous",
    131131    );
    132132
    133     $idata->unlock();
     133    $neb->unlock();
    134134};
    135135like( $@, qr/2 were expected/, "no params" );
    136136
    137 Test::IData->setup;
     137Test::Nebulous->setup;
    138138
    139139eval {
    140     my $idata = PS::IPP::IData::Client->new(
    141         proxy => "http://$hostport/idata",
     140    my $neb = Nebulous::Client->new(
     141        proxy => "http://$hostport/nebulous",
    142142    );
    143143
    144     $idata->unlock( "foo" );
     144    $neb->unlock( "foo" );
    145145};
    146146like( $@, qr/2 were expected/, "not enough params" );
    147147
    148 Test::IData->setup;
     148Test::Nebulous->setup;
    149149
    150150eval {
    151     my $idata = PS::IPP::IData::Client->new(
    152         proxy => "http://$hostport/idata",
     151    my $neb = Nebulous::Client->new(
     152        proxy => "http://$hostport/nebulous",
    153153    );
    154154
    155     $idata->unlock( "foo", "both" );
     155    $neb->unlock( "foo", "both" );
    156156};
    157157like( $@, qr/is read or write/, "not read or write" );
    158158
    159 Test::IData->setup;
     159Test::Nebulous->setup;
    160160
    161161eval {
    162     my $idata = PS::IPP::IData::Client->new(
    163         proxy => "http://$hostport/idata",
     162    my $neb = Nebulous::Client->new(
     163        proxy => "http://$hostport/nebulous",
    164164    );
    165165
    166     $idata->unlock( "foo", 'read', 3 );
     166    $neb->unlock( "foo", 'read', 3 );
    167167};
    168168like( $@, qr/2 were expected/, "too many params" );
    169169
    170 Test::IData->cleanup;
     170Test::Nebulous->cleanup;
Note: See TracChangeset for help on using the changeset viewer.