Index: /branches/neb_distrib_20081210/Nebulous/Build.PL
===================================================================
--- /branches/neb_distrib_20081210/Nebulous/Build.PL	(revision 23866)
+++ /branches/neb_distrib_20081210/Nebulous/Build.PL	(revision 23867)
@@ -95,4 +95,5 @@
         'Nebulous::Server::SOAP'    => 0,
         'Test::Nebulous'            => 0,
+        'Test::Cmd'                 => '1.05',
         'Apache2::SOAP'             => 0,
         'Apache::DBI'               => '1.05',
Index: /branches/neb_distrib_20081210/Nebulous/MANIFEST
===================================================================
--- /branches/neb_distrib_20081210/Nebulous/MANIFEST	(revision 23866)
+++ /branches/neb_distrib_20081210/Nebulous/MANIFEST	(revision 23867)
@@ -98,4 +98,5 @@
 t/66_client_xattr.t
 t/67_client_swap.t
+t/70_neb-ls.t
 t/90_nebclient.t
 t/TEST.PL
Index: /branches/neb_distrib_20081210/Nebulous/t/70_neb-ls.t
===================================================================
--- /branches/neb_distrib_20081210/Nebulous/t/70_neb-ls.t	(revision 23867)
+++ /branches/neb_distrib_20081210/Nebulous/t/70_neb-ls.t	(revision 23867)
@@ -0,0 +1,43 @@
+#!/usr/bin/env perl
+
+# Copyright (C) 2009  Joshua Hoblitt
+
+use strict;
+use warnings;
+
+use lib qw( ./lib ./t );
+
+use Test::Cmd;
+use Test::More tests => 3;
+
+=head1 NAME
+
+t/70_neb-ls.t - tests neb-ls
+
+=head1 SYNOPSIS
+    
+    prove t/70_neb-ls.t
+
+=cut
+
+my $cmd = 'bin/neb-ls';
+
+# last ditch effort to make sure dsget is executable
+chmod 0755, 'bin/neb-ls';
+
+
+my $test = Test::Cmd->new(prog => $cmd, workdir => '');
+isa_ok($test, 'Test::Cmd');
+
+{
+    $test->run(args => '');
+    missing_args(2, "Required options: --server");
+}
+
+sub missing_args
+{
+    my ($exit, $errstr) = @_;
+
+    is($? >> 8, $exit, "error code is: $exit");
+    like($test->stderr, qr/$errstr/, "error string is: $errstr");
+}