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