Changeset 5662 for trunk/Nebulous-Server/t/11_client_create.t

Timestamp:

Dec 2, 2005, 4:26:59 PM (21 years ago)

Author:

jhoblitt

Message:

add Nebulous::Client->open_create()
change Nebulous::Client->create() to return just a filename

File:

• trunk/Nebulous-Server/t/11_client_create.t (modified) (5 diffs)

trunk/Nebulous-Server/t/11_client_create.t

@@ -3 +3 @@
 # Copryight (C) 2004-2005  Joshua Hoblitt
 #
-# $Id: 11_client_create.t,v 1.4 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: 11_client_create.t,v 1.5 2005-12-03 02:26:59 jhoblitt Exp $
 
 use strict;
@@ -28 +28 @@
     );
 
-    my $fh = $neb->create( "foo" );
+    my $filename = $neb->create( "foo" );
 
-    is( ref $fh, 'GLOB', "good filehandle" );
+    ok( -e $filename, "good filename" );
 }
 
@@ -41 +41 @@
     );
 
-    my $fh = $neb->create( "foo", 0 );
+    my $filename = $neb->create( "foo", 0 );
 
-    is( ref $fh, 'GLOB', "good filehandle" );
+    ok( -e $filename, "good filename" );
 }
 
@@ -54 +54 @@
     );
 
-    my $fh = $neb->create( "foo", 0, "node01" );
+    my $filename = $neb->create( "foo", 0, "node01" );
 
-    is( ref $fh, 'GLOB', "good filehandle" );
+    ok( -e $filename, "good filename" );
 }
 
@@ -67 +67 @@
     );
 
-    my $fh = $neb->create( "foo", 0, "node01", "this is foo" );
+    my $filename = $neb->create( "foo", 0, "node01", "this is foo" );
 
-    is( ref $fh, 'GLOB', "good filehandle" );
+    ok( -e $filename, "good filename" );
 }