Select Code to Download

package Test::Action;

...
}

1;

sub startup : Tests(startup => +1) {
    my $test = shift;
...
        'the constructor should succeed'
    );
}

C:\Temp\perl\Siebel-Srvrmgr>prove -I C:\Temp\perl\Siebel-Srvrmgr\t t\A
+ctionLoadPreferences.t -v
t\ActionLoadPreferences.t ..
...
  Parse errors: Bad plan.  You planned 22 tests but ran 13.
Files=1, Tests=13,  1 wallclock secs ( 0.05 usr +  0.05 sys =  0.09 CP
+U)
Result: FAIL