Changeset 23640

Timestamp:

Mar 31, 2009, 3:26:37 PM (17 years ago)

Author:

jhoblitt

Message:

load in test script as an external file

Location:

trunk/Nebulous/scripts

Files:

• ptest.pl (modified) (2 diffs)
• test_prog_simple.pl (added)

trunk/Nebulous/scripts/ptest.pl

@@ -18 +18 @@
 $| = 1;
 
+my $prog_file = shift;
 my $key = shift || 'foobar';
 my $kids = shift || 1;
 
+require $prog_file;
 $key = "/tmp/" . $key;
 
@@ -72 +74 @@
     }
 
-#    select $sock;
-#    $| = 1;
-
-    # child
     my $fname = "${key}_$id";
 
     my $neb = Nebulous::Client::Bench->new(
 #    proxy   => 'http://localhost:80/nebulous'
-        proxy   => 'http://alala:80/nebulous',
-#        sock    => \*STDOUT,
+        proxy   => 'http://ipp008:80/nebulous'
+#        proxy   => 'http://alala:80/nebulous',
     );
 
-
-    while (1) {
-#    print $sock "$$ : i'm a little tea pot using key: $fname\n";
-        my $fh = $neb->open_create( $fname )
-            or child_die($sock, "can't create file $fname");
-        close $fh;
-
-        $fh = $neb->open( $fname, 'read' )
-            or child_die("can't open file");
-        close $fh;
-
-        $neb->lock( $fname, 'read' );
-        $neb->unlock( $fname, 'read' );
-        $neb->replicate( $fname );
-        $neb->cull( $fname );
-        $neb->find( $fname );
-        $neb->copy( $fname, $fname . "_copy" );
-        $neb->move( $fname, $fname . "_move" );
-        $neb->delete( $fname . "_copy" );
-        $neb->delete( $fname . "_move" );
-
-#    print $sock "$$ : all done!\n";
-    }
-
-    return 1;
+    test_prog($neb, $fname);
 }