Revision de8da5ba
Von Moritz Bunkus vor etwa 8 Jahren hinzugefügt
| t/000setup_database.t | ||
|---|---|---|
|
use SL::LXDebug;
|
||
|
use SL::Layout::None;
|
||
|
use SL::LxOfficeConf;
|
||
|
use Support::TestSetup;
|
||
|
|
||
|
our ($db_cfg, $dbh);
|
||
|
|
||
| ... | ... | |
|
$::lxdebug = LXDebug->new(target => LXDebug::STDERR_TARGET);
|
||
|
$::lxdebug->disable_sub_tracing;
|
||
|
$::locale = Locale->new($::lx_office_conf{system}->{language});
|
||
|
$::form = Form->new;
|
||
|
$::form = Support::TestSetup->create_new_form;
|
||
|
$::auth = SL::Auth->new(unit_tests_database => 1);
|
||
|
$::locale = Locale->new('de');
|
||
|
$::instance_conf = SL::InstanceConfiguration->new;
|
||
| t/Support/TestSetup.pm | ||
|---|---|---|
|
$::lxdebug = LXDebug->new(target => LXDebug::STDERR_TARGET);
|
||
|
$::lxdebug->disable_sub_tracing;
|
||
|
$::locale = Locale->new($::lx_office_conf{system}->{language});
|
||
|
$::form = Form->new;
|
||
|
$::form = Support::TestSetup->create_new_form;
|
||
|
$::auth = SL::Auth->new(unit_tests_database => 1);
|
||
|
die "Cannot find client with ID or name '$client'" if !$::auth->set_client($client);
|
||
|
|
||
| ... | ... | |
|
|
||
|
$SIG{__DIE__} = sub { Carp::confess( @_ ) } if $::lx_office_conf{debug}->{backtrace_on_die};
|
||
|
|
||
|
Support::TestSetup::create_form_template_provider();
|
||
|
|
||
|
return 1;
|
||
|
}
|
||
|
|
||
|
sub create_form_template_provider {
|
||
|
$::form->template(Template->new(template_config())) || die;
|
||
|
sub create_new_form {
|
||
|
my $form = Form->new('');
|
||
|
$form->template(Template->new(template_config())) || die;
|
||
|
return $form;
|
||
|
}
|
||
|
|
||
|
sub template_config {
|
||
| t/controllers/financial_controlling/sales_order_with_periodic_invoices_config.t | ||
|---|---|---|
|
|
||
|
ok($order->save(cascade => 1));
|
||
|
|
||
|
$::form = Form->new('');
|
||
|
$::form = Support::TestSetup->create_new_form;
|
||
|
$ctrl = SL::Controller::FinancialControllingReport->new;
|
||
|
|
||
|
$ctrl->orders($ctrl->models->get);
|
||
| t/controllers/financial_overview/sales_orders.t | ||
|---|---|---|
|
|
||
|
ok($order->save(cascade => 1));
|
||
|
|
||
|
$::form = Form->new('');
|
||
|
$::form = Support::TestSetup->create_new_form;
|
||
|
$::form->{year} = 2014;
|
||
|
$ctrl = SL::Controller::FinancialOverview->new;
|
||
|
|
||
Auch abrufbar als: Unified diff
Tests: $::form nur über Helfermethode Support::TestSetup::create_new_form anlege
Diese Helfermethode erstellt und konfiguriert auch gleich das
Template-Objekt mit dem Pfad zum Test-eigenen
Template-Cache-Verzeichnis.