root/honeyclient/branches/rel/1.0/t/honeyclient_agent_driver_activecontent_flash.t
| Revision 751, 300 bytes (checked in by kindlund, 1 year ago) |
|---|
| Line | |
|---|---|
| 1 | #!/usr/bin/perl -w |
| 2 | |
| 3 | use strict; |
| 4 | use Test::More 'no_plan'; |
| 5 | $| = 1; |
| 6 | |
| 7 | |
| 8 | |
| 9 | # =begin testing |
| 10 | { |
| 11 | # Do testing here... |
| 12 | my $foo = HoneyClient::Something->blah(...); |
| 13 | dies_ok {$foo->dosomething()} 'dosomething()' or diag("The issomething() call failed. |
| 14 | Expected dosomething() to throw an exception."); |
| 15 | } |
| 16 | |
| 17 | |
| 18 | |
| 19 | |
| 20 | 1; |
Note: See TracBrowser for help on using the browser.
