1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
use strict;
use warnings;
use RT::Test tests => 'no_declare';
# This test script processes the sample initialdata file in
# ../data/initialdata/initialdata
# To add initialdata tests, add the data to the initialdata file and it
# will be processed by this script.
my $initialdata = RT::Test::get_relocatable_file("initialdata" => "..", "data", "initialdata");
my ($rv, $msg) = RT->DatabaseHandle->InsertData( $initialdata, undef, disconnect_after => 0 );
ok($rv, "Inserted test data from $initialdata")
or diag "Error: $msg";
done_testing();
|
