1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/usr/bin/perl
use strict;
use FindBin;
use lib "$FindBin::Bin";
use Mcds::McdsCalypso;
my $tmp = $ENV{'AUTOPKGTEST_TMP'} // File::Temp->newdir();
my $m = Mcds::McdsCalypso->new({'dir' => $tmp});
my $url = $m->go(["debian/tests/data/contacts.vcf"]);
my $results = shift;
my $reference = undef;
if (!defined $results) {
$results="$tmp/results";
$reference="debian/tests/data/reference-full";
}
!system("mcds -c null -u $url King | tee $results") or die "fail";
!system("mcds -c null -u $url Kin2 | tee -a $results") or die "fail";
!system("mcds -c null -u $url 士 | tee -a $results") or die "fail";
!system("mcds -c null -u $url -s a test | tee -a $results") or die "fail";
$m->stop_server();
if (defined $reference) {
!system("diff -u $reference $results >&2") or die "results did not match reference";
}
|
