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_create.t

    r12960 r13092  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 51_client_create.t,v 1.2 2007-04-23 20:42:29 jhoblitt Exp $
     5# $Id: 51_client_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 => 11;
     12plan tests => 7;
    1313
    1414use lib qw( ./t ./lib );
     
    4040
    4141{
    42     # key, class
     42    # key, volume
    4343    my $neb = Nebulous::Client->new(
    4444        proxy => "http://$hostport/nebulous",
    4545    );
    4646
    47     my $uri = $neb->create("foo", 0);
    48 
    49     my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
    50     ok(-e $path, "good filename");
    51     uri_scheme_ok($uri, 'file');
    52 }
    53 
    54 Test::Nebulous->setup;
    55 
    56 {
    57     # key, class, volume
    58     my $neb = Nebulous::Client->new(
    59         proxy => "http://$hostport/nebulous",
    60     );
    61 
    62     my $uri = $neb->create("foo", 0, "node01");
    63 
    64     my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
    65     ok(-e $path, "good filename");
    66     uri_scheme_ok($uri, 'file');
    67 }
    68 
    69 Test::Nebulous->setup;
    70 
    71 {
    72     # key, class, volume, comment
    73     my $neb = Nebulous::Client->new(
    74         proxy => "http://$hostport/nebulous",
    75     );
    76 
    77     my $uri = $neb->create("foo", 0, "node01", "this is foo");
     47    my $uri = $neb->create("foo", "node01");
    7848
    7949    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
     
    10272    $neb->create();
    10373};
    104 like($@, qr/2 - 4 were expected/, "no params");
     74like($@, qr/1 - 2 were expected/, "no params");
    10575
    10676Test::Nebulous->setup;
     
    11181    );
    11282
    113     $neb->create(1, 2, 3, 4, 5);
     83    $neb->create(1, 2, 3);
    11484};
    115 like($@, qr/2 - 4 were expected/, "too many params");
     85like($@, qr/1 - 2 were expected/, "too many params");
    11686
    11787Test::Nebulous->cleanup;
Note: See TracChangeset for help on using the changeset viewer.