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/apache_05_server_lock_object.x

    r2785 r4440  
    1111
    1212use Apache::TestUtil;
    13 use PS::IPP::IData::Util qw( :standard );
     13use Nebulous::Util qw( :standard );
    1414use SOAP::Lite;
    15 use Test::IData;
     15use Test::Nebulous;
    1616
    1717my $hostport = Apache::Test::config()->{ 'hostport' };
    18 my $idata = SOAP::Lite->new(
    19     proxy   => "http://$hostport/idata",
    20     uri     => "http://pan-starrs.ifa.hawaii.edu/PS/IPP/IData/Server",
     18my $neb = SOAP::Lite->new(
     19    proxy   => "http://$hostport/nebulous",
     20    uri     => "http://pan-starrs.ifa.hawaii.edu/PS/IPP/Nebulous/Server",
    2121);
    2222
    23 Test::IData->setup;
     23Test::Nebulous->setup;
    2424
    2525{
    26     $idata->create_object( "foo" );
     26    $neb->create_object( "foo" );
    2727
    28     ok( $idata->lock_object( "foo", "read" )->result, "read lock" );
     28    ok( $neb->lock_object( "foo", "read" )->result, "read lock" );
    2929}
    3030
    31 Test::IData->setup;
     31Test::Nebulous->setup;
    3232
    3333{
    34     $idata->create_object( "foo" );
     34    $neb->create_object( "foo" );
    3535
    36     ok( $idata->lock_object( "foo", "read" )->result, "read lock" );
    37     ok( $idata->lock_object( "foo", "read" )->result, "read lock" );
     36    ok( $neb->lock_object( "foo", "read" )->result, "read lock" );
     37    ok( $neb->lock_object( "foo", "read" )->result, "read lock" );
    3838}
    3939
    40 Test::IData->setup;
     40Test::Nebulous->setup;
    4141
    4242{
    43     $idata->create_object( "foo" );
     43    $neb->create_object( "foo" );
    4444
    45     ok( $idata->lock_object( "foo", "write" )->result, "write lock" );
     45    ok( $neb->lock_object( "foo", "write" )->result, "write lock" );
    4646}
    4747
    48 Test::IData->setup;
     48Test::Nebulous->setup;
    4949
    5050{
    51     my $result = $idata->lock_object( "foo", "read" );
     51    my $result = $neb->lock_object( "foo", "read" );
    5252
    5353    like( $result->faultstring, qr/storage object does not exist/, "storage object does not exist" );
    5454}
    5555
    56 Test::IData->setup;
     56Test::Nebulous->setup;
    5757
    5858{
    59     my $result = $idata->lock_object( "foo", "write" );
     59    my $result = $neb->lock_object( "foo", "write" );
    6060
    6161    like( $result->faultstring, qr/storage object does not exist/, "storage object does not exist" );
    6262}
    6363
    64 Test::IData->setup;
     64Test::Nebulous->setup;
    6565
    6666{
    67     $idata->create_object( "foo" );
     67    $neb->create_object( "foo" );
    6868
    69     $idata->lock_object( "foo", "write" );
    70     my $result = $idata->lock_object( "foo", "write" );
     69    $neb->lock_object( "foo", "write" );
     70    my $result = $neb->lock_object( "foo", "write" );
    7171
    7272    like( $result->faultstring, qr/can not write lock twice/, "can not write lock twice" );
    7373}
    7474
    75 Test::IData->setup;
     75Test::Nebulous->setup;
    7676
    7777{
    78     $idata->create_object( "foo" );
     78    $neb->create_object( "foo" );
    7979
    80     $idata->lock_object( "foo", "read" );
    81     my $result = $idata->lock_object( "foo", "write" );
     80    $neb->lock_object( "foo", "read" );
     81    my $result = $neb->lock_object( "foo", "write" );
    8282
    8383    like( $result->faultstring, qr/can not write lock after read lock/, "can not write lock after read lock" );
    8484}
    8585
    86 Test::IData->setup;
     86Test::Nebulous->setup;
    8787
    8888{
    89     $idata->create_object( "foo" );
     89    $neb->create_object( "foo" );
    9090
    91     $idata->lock_object( "foo", "write" );
    92     my $result = $idata->lock_object( "foo", "read" );
     91    $neb->lock_object( "foo", "write" );
     92    my $result = $neb->lock_object( "foo", "read" );
    9393
    9494    like( $result->faultstring, qr/can not read lock after write lock/, "can not read lock after write lock" );
    9595}
    9696
    97 Test::IData->setup;
     97Test::Nebulous->setup;
    9898
    9999{
    100     my $result = $idata->lock_object();
     100    my $result = $neb->lock_object();
    101101
    102102    like( $result->faultstring, qr/2 were expected/, "no params" );
    103103}
    104104
    105 Test::IData->setup;
     105Test::Nebulous->setup;
    106106
    107107{
    108     my $result = $idata->lock_object( "foo" );
     108    my $result = $neb->lock_object( "foo" );
    109109
    110110    like( $result->faultstring, qr/2 were expected/, "not enough params" );
    111111}
    112112
    113 Test::IData->setup;
     113Test::Nebulous->setup;
    114114
    115115{
    116     my $result = $idata->lock_object( "foo", "both" );
     116    my $result = $neb->lock_object( "foo", "both" );
    117117
    118118    like( $result->faultstring, qr/is read or write/, "not read or write" );
    119119}
    120120
    121 Test::IData->setup;
     121Test::Nebulous->setup;
    122122
    123123{
    124     my $result = $idata->lock_object( "foo", 'read', 3 );
     124    my $result = $neb->lock_object( "foo", 'read', 3 );
    125125
    126126    like( $result->faultstring, qr/2 were expected/, "too many params" );
    127127}
    128128
    129 Test::IData->cleanup;
     129Test::Nebulous->cleanup;
Note: See TracChangeset for help on using the changeset viewer.