Changeset 6595 for trunk/DataStore/t/06_fileset.t

Timestamp:

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

Author:

jhoblitt

Message:

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

File:

• trunk/DataStore/t/06_fileset.t (modified) (3 diffs)

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');
+