Revision 6b378ca7
Von Sven Schöling vor fast 13 Jahren hinzugefügt
t/helper/attr.t | ||
---|---|---|
1 | 1 |
use Test::More tests => 29; |
2 | 2 |
|
3 |
use lib 't'; |
|
4 |
|
|
3 | 5 |
use DateTime; |
4 | 6 |
|
7 |
use_ok 'Support::TestSetup'; |
|
5 | 8 |
use_ok 'SL::DB::Part'; |
6 | 9 |
use_ok 'SL::DB::Order'; |
7 | 10 |
use_ok 'SL::DB::Invoice'; |
8 |
use_ok 'SL::Dispatcher'; |
|
9 | 11 |
|
12 |
Support::TestSetup::login(); |
|
10 | 13 |
|
11 | 14 |
{ |
12 |
$::dispatcher = SL::Dispatcher->new; |
|
13 |
$::dispatcher->pre_startup_setup; |
|
14 |
no warnings 'once'; |
|
15 |
$::form = Form->new; |
|
16 | 15 |
$::myconfig{numberformat} = '1.000,00'; |
17 | 16 |
$::myconfig{dateformat} = 'dd.mm.yyyy'; |
18 |
$::locale = Locale->new('de'); |
|
19 | 17 |
} |
20 | 18 |
|
21 | 19 |
my $p = new_ok 'SL::DB::Part'; |
Auch abrufbar als: Unified diff
Tests von Dispatcher auf TestSetup umgeschrieben.
Dispatcher kann keine validen Datenbankhandle zur richtigen Zeit bereitstellen,
und die Mechanismen gegen kaputte DB Handle vertragen sich nicht mit reinem
offline Testing.