From: Brandon L Black <blblack@gmail.com>
Date: Mon, 2 Apr 2007 21:39:59 +0000 (+0000)
Subject: another test
X-Git-Tag: 0_02~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a4fb037c1f003290919e6f1f167501154145b726;p=gitmo%2FMooseX-Getopt.git

another test
---

diff --git a/t/001_basic.t b/t/001_basic.t
index 039effb..438a9a8 100644
--- a/t/001_basic.t
+++ b/t/001_basic.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 49;
+use Test::More tests => 51;
 
 BEGIN {
     use_ok('MooseX::Getopt');
@@ -203,3 +203,12 @@ BEGIN {
     isa_ok($app, 'App');
     is($app->_private_stuff_cmdline, 666, '_foo + cmd_flag');
 }
+
+# Test ARGV support
+{
+    my @args = ('-p', 12345, '-c', 99);
+    local @ARGV = @args;
+    my $app = App->new_with_options;
+    isa_ok($app, 'App');
+    is_deeply($app->ARGV, \@args);
+}