1#!/usr/bin/perl 2 3use strict; 4use Test::More tests => 1; 5use File::Spec; 6use lib qw(t/lib); 7use MyAppFinish; 8 9our $RESULT; 10my @argv = ("finished", "--finished"); 11 12{ 13 local *ARGV = \@argv; 14 MyAppFinish->dispatch; 15} 16 17ok(!defined($RESULT)); 18