Changeset 4931 for trunk/Nebulous/scripts/bench_test.pl

Timestamp:

Aug 31, 2005, 10:55:39 AM (21 years ago)

Author:

jhoblitt

Message:

update

File:

• trunk/Nebulous/scripts/bench_test.pl (modified) (2 diffs)

trunk/Nebulous/scripts/bench_test.pl

@@ -1 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 use strict;
-use warnings;
+use warnings FATAL => qw( all );
 
 use lib "./lib";
@@ -14 +14 @@
 
 my $key = shift || 'foobar';
-            my $fh = $neb->create( $key );
-            close $fh;
+
+eval { $neb->delete( $key ); };
+
+my $fh = $neb->create( $key );
+close $fh;
+
+
+timethese( -3,
+    {
+        'stat' => sub {
+            $neb->stat( $key );
+        },
+    }
+);
+
+$neb->delete( $key );
 
 timethese( -3,
     {
         'create/delete' => sub {
-#            $neb->delete( $key );
-            $neb->stat( $key );
+            my $fh = $neb->create( $key );
+            close $fh;
+            $neb->delete( $key );
         },
     }