| Current Path : /var/www/web-klick.de/dsh/90_akt/DivBasicF/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/90_akt/DivBasicF/testcal_run.pl |
package DivBasicF::GoogleCal_TestRunner;
use DivBasicF::Test_GoogleCal;
use AutoTest::AutoTestParam;
my $cal = DivBasicF::Test_GoogleCal->new();
# print "1\n";
# print $c->test_00001."\n";
# print "2\n";
# print $c->test_00002."\n";
# print "3\n";
# print $c->test_00003."\n";
#print "4\n";
#print $c->test_00004("31.12.2008",24384)."\n";
# print $c->test_00005."\n";
#$cal->test_00005() and exit();
my $atp = AutoTest::AutoTestParam->new("gcal.sqlite", $cal);
$atp->create_tables();
#$atp->add_testclass("001.01", "20081105_162730", "andreas", "eine testklasse", "test_create_and_delete;01.01.2008-31.12.2009;0-86400");
$atp->add_testclass("001.02","200812_01_12467","andreas","zufaellige tests","random;4-30;01.01.2008-31.12.2009;0-86400");
$atp->add_testarch("001.01", "20081105_162730", "andreas", "eine testarchitektur", "1;all");
my $c=1;
#$atp->generate_test("001.01",$c);
$atp->generate_test("001.02",$c);
$atp->generate_arch("001.01",1);
for (my $i=1;$i<=$c;$i++) {
#$atp->mark_test("001.01",$i,"001.01",1,"andreas");
$atp->mark_test("001.02",$i,"001.01",1,"andreas");
}
$atp->run_test();