Index: /trunk/DataStore/MANIFEST
===================================================================
--- /trunk/DataStore/MANIFEST	(revision 6627)
+++ /trunk/DataStore/MANIFEST	(revision 6628)
@@ -27,2 +27,3 @@
 t/08_response.t
 t/09_datastore.t
+t/10_dsget.t
Index: /trunk/DataStore/t/10_dsget.t
===================================================================
--- /trunk/DataStore/t/10_dsget.t	(revision 6628)
+++ /trunk/DataStore/t/10_dsget.t	(revision 6628)
@@ -0,0 +1,43 @@
+#!/usr/bin/env perl
+
+# Copyright (C) 2006  Joshua Hoblitt
+#
+# $Id: 10_dsget.t,v 1.1 2006-03-17 04:12:08 jhoblitt Exp $
+
+use strict;
+use warnings;
+
+use lib qw( ./lib ./t );
+
+use Test::Cmd;
+use Test::More tests => 3;
+
+=head1 NAME
+
+t/10_dsget.t - tests dsget
+
+=head1 SYNOPSIS
+    
+    prove t/10_dsget.t
+
+=cut
+
+# last ditch effort to make sure dsget is executable
+chmod 0755, 'scripts/dsget';
+
+my $test = Test::Cmd->new(prog => 'scripts/dsget', workdir => '');
+isa_ok($test, 'Test::Cmd');
+
+{
+    $test->run(args => '');
+    missing_args(3, "Required options: --uri --filename");
+}
+
+sub missing_args
+{
+    my ($exit, $errstr) = @_;
+
+    is($? >> 8, $exit, "error code is: $exit");
+    like($test->stderr, qr/$errstr/, "error string is: $errstr");
+}
+