Changeset 17644

Timestamp:

May 12, 2008, 2:16:15 PM (18 years ago)

Author:

jhoblitt

Message:

check that ->create() accepts volume == undef

File:

• trunk/Nebulous/t/51_client_create.t (modified) (3 diffs)

trunk/Nebulous/t/51_client_create.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 51_client_create.t,v 1.4 2008-02-02 01:51:29 jhoblitt Exp $
+# $Id: 51_client_create.t,v 1.5 2008-05-13 00:16:15 jhoblitt Exp $
 
 use strict;
@@ -10 +10 @@
 use Apache::Test qw( -withtestmore );
 
-plan tests => 7;
+plan tests => 9;
 
 use lib qw( ./t ./lib );
@@ -54 +54 @@
 
 {
+    # key, volume == undef
+    my $neb = Nebulous::Client->new(
+        proxy => "http://$hostport/nebulous",
+    );
+
+    my $uri = $neb->create("foo", undef);
+
+    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
+    ok(-e $path, "good filename");
+    uri_scheme_ok($uri, 'file');
+}
+
+Test::Nebulous->setup;
+
+{
     my $neb = Nebulous::Client->new(
         proxy => "http://$hostport/nebulous",