Changeset 6595

Timestamp:

Mar 15, 2006, 12:06:58 PM (20 years ago)

Author:

jhoblitt

Message:

test that ->requset() doesn't accept any params

Location:

trunk/DataStore/t

Files:

• 05_product.t (modified) (3 diffs)
• 06_fileset.t (modified) (3 diffs)

trunk/DataStore/t/05_product.t

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: 05_product.t,v 1.2 2006-03-14 23:24:05 jhoblitt Exp $
+# $Id: 05_product.t,v 1.3 2006-03-15 22:06:58 jhoblitt Exp $
 
 use strict;
@@ -10 +10 @@
 use lib qw( ./lib ./t );
 
-use Test::More tests => 21;
+use Test::More tests => 22;
 
 =head1 NAME
@@ -166 +166 @@
 # cleanup HTTP server
 kill 9, $pid;
+
+eval {
+    my $dsp = DataStore::Product->new( uri => 'http://example.org/' );
+
+    $dsp->request( foo => 1 );
+};
+like($@, qr/not listed in the validation options/,
+    '->request() fails whe passed extra params');

trunk/DataStore/t/06_fileset.t

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: 06_fileset.t,v 1.2 2006-03-15 03:18:25 jhoblitt Exp $
+# $Id: 06_fileset.t,v 1.3 2006-03-15 22:06:58 jhoblitt Exp $
 
 use strict;
@@ -10 +10 @@
 use lib qw( ./lib ./t );
 
-use Test::More tests => 17;
+use Test::More tests => 18;
 
 =head1 NAME
@@ -151 +151 @@
 # cleanup HTTP server
 kill 9, $pid;
+
+eval {
+    my $dsf = DataStore::FileSet->new(
+        uri         => 'http://example.org/',
+        fileset     => '12buckelyourshoe',
+        datetime    => '2042-01-01T00:00:00Z',
+        type        => 'foo',
+    );
+
+    $dsf->request( foo => 1 );
+};
+like($@, qr/not listed in the validation options/,
+    '->request() fails whe passed extra params');
+