#!/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";
}
