Changeset 3014

Timestamp:

Jan 14, 2005, 4:40:55 PM (22 years ago)

Author:

jhoblitt

Message:

use timethese instead cmpthese

Location:

trunk

Files:

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

trunk/Nebulous-Server/scripts/bench_test.pl

@@ -5 +5 @@
 
 use lib "./lib";
-use Benchmark qw( cmpthese );
 
+use Benchmark qw( timethese );
 use PS::IPP::IData::Client;
 
@@ -13 +13 @@
 );
 
-my $key = "foobarbazbongbungbutufu";
-cmpthese( 10, {
-        'Image Server' => sub {
-            {
-                my $fh = $idata->create( $key );
-                close $fh;
-                $idata->unlock( $key, 'write' );
-            }
+my $key = shift || 'foobar';
 
+timethese( -10,
+    {
+        'create/delete' => sub {
+            my $fh = $idata->create( $key );
+            close $fh;
             $idata->delete( $key );
         },
-    },
-    'all',
+    }
 );

trunk/Nebulous/scripts/bench_test.pl

@@ -5 +5 @@
 
 use lib "./lib";
-use Benchmark qw( cmpthese );
 
+use Benchmark qw( timethese );
 use PS::IPP::IData::Client;
 
@@ -13 +13 @@
 );
 
-my $key = "foobarbazbongbungbutufu";
-cmpthese( 10, {
-        'Image Server' => sub {
-            {
-                my $fh = $idata->create( $key );
-                close $fh;
-                $idata->unlock( $key, 'write' );
-            }
+my $key = shift || 'foobar';
 
+timethese( -10,
+    {
+        'create/delete' => sub {
+            my $fh = $idata->create( $key );
+            close $fh;
             $idata->delete( $key );
         },
-    },
-    'all',
+    }
 );