Revision 7b35c53f
Von Sven Schöling vor mehr als 11 Jahren hinzugefügt
| t/db_helper/acts_as_list.t | ||
|---|---|---|
| 1 |
use Test::More tests => 51;
|
|
| 1 |
use Test::More; |
|
| 2 | 2 |
use Test::Exception; |
| 3 | 3 |
|
| 4 | 4 |
use strict; |
| ... | ... | |
| 9 | 9 |
use Data::Dumper; |
| 10 | 10 |
use Support::TestSetup; |
| 11 | 11 |
|
| 12 |
use_ok 'SL::DB::RequirementSpec'; |
|
| 13 |
use_ok 'SL::DB::RequirementSpecItem'; |
|
| 14 |
use_ok 'SL::DB::RequirementSpecTextBlock'; |
|
| 12 |
eval {
|
|
| 13 |
require 'SL::DB::RequirementSpec'; |
|
| 14 |
require 'SL::DB::RequirementSpecItem'; |
|
| 15 |
require 'SL::DB::RequirementSpecTextBlock'; |
|
| 16 |
1; |
|
| 17 |
} or my $skip = 'RequirementSpec is not available for this test'; |
|
| 18 |
|
|
| 19 |
if ($skip) {
|
|
| 20 |
plan skip_all => $skip; |
|
| 21 |
} else {
|
|
| 22 |
plan tests => 48; |
|
| 23 |
} |
|
| 15 | 24 |
|
| 16 | 25 |
sub reset_state {
|
| 17 | 26 |
"SL::DB::Manager::${_}"->delete_all(all => 1) for qw(RequirementSpecTextBlock RequirementSpecItem RequirementSpec);
|
Auch abrufbar als: Unified diff
acts_as_list sollte nicht kaputtgehen hier