Changeset 6595 for trunk/DataStore/t/05_product.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/05_product.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');