Changeset 6632

Timestamp:

Mar 17, 2006, 11:58:23 AM (20 years ago)

Author:

jhoblitt

Message:

extra cli param tests

File:

• trunk/DataStore/t/10_dsget.t (modified) (3 diffs)

trunk/DataStore/t/10_dsget.t

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: 10_dsget.t,v 1.1 2006-03-17 04:12:08 jhoblitt Exp $
+# $Id: 10_dsget.t,v 1.2 2006-03-17 21:58:23 jhoblitt Exp $
 
 use strict;
@@ -11 +11 @@
 
 use Test::Cmd;
-use Test::More tests => 3;
+use Test::More tests => 7;
 
 =head1 NAME
@@ -34 +34 @@
 }
 
+{
+    $test->run(args => '--uri http://example.org/foo');
+    missing_args(3, "Required options: --uri --filename");
+}
+
+{
+    $test->run(args => '--filename /foo/bar/baz');
+    missing_args(3, "Required options: --uri --filename");
+}
+
 sub missing_args
 {