IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Apr 30, 2007, 4:52:04 PM (19 years ago)
Author:
jhoblitt
Message:

remove $class_id & $comment params from Nebulous::Server->create() and Nebulous::Client->create*() and all supporting functions and tests

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Nebulous/t/51_client_open_create.t

    r12960 r13092  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 51_client_open_create.t,v 1.2 2007-04-23 20:42:29 jhoblitt Exp $
     5# $Id: 51_client_open_create.t,v 1.3 2007-05-01 02:52:04 jhoblitt Exp $
    66
    77use strict;
     
    1010use Apache::Test qw( -withtestmore );
    1111
    12 plan tests => 7;
     12plan tests => 5;
    1313
    1414use lib qw( ./t ./lib );
     
    3636
    3737{
    38     # key, class
     38    # key, volume
    3939    my $neb = Nebulous::Client->new(
    4040        proxy => "http://$hostport/nebulous",
    4141    );
    4242
    43     my $fh = $neb->open_create( "foo", 0 );
    44 
    45     is(ref $fh, 'GLOB', "good filehandle");
    46 }
    47 
    48 Test::Nebulous->setup;
    49 
    50 {
    51     # key, class, volume
    52     my $neb = Nebulous::Client->new(
    53         proxy => "http://$hostport/nebulous",
    54     );
    55 
    56     my $fh = $neb->open_create("foo", 0, "node01");
    57 
    58     is(ref $fh, 'GLOB', "good filehandle");
    59 }
    60 
    61 Test::Nebulous->setup;
    62 
    63 {
    64     # key, class, volume, comment
    65     my $neb = Nebulous::Client->new(
    66         proxy => "http://$hostport/nebulous",
    67     );
    68 
    69     my $fh = $neb->open_create("foo", 0, "node01", "this is foo");
     43    my $fh = $neb->open_create("foo", "node01");
    7044
    7145    is(ref $fh, 'GLOB', "good filehandle");
     
    9266    $neb->open_create();
    9367};
    94 like($@, qr/2 - 4 were expected/, "no params");
     68like($@, qr/1 - 2 were expected/, "no params");
    9569
    9670Test::Nebulous->setup;
     
    10175    );
    10276
    103     $neb->open_create(1, 2, 3, 4, 5);
     77    $neb->open_create(1, 2, 3);
    10478};
    105 like($@, qr/2 - 4 were expected/, "too many params");
     79like($@, qr/1 - 2 were expected/, "too many params");
    10680
    10781Test::Nebulous->cleanup;
Note: See TracChangeset for help on using the changeset viewer.