summaryrefslogtreecommitdiffstats
path: root/tdeabc/vcardparser/checkvcard.pl
blob: 67160ea4a31bda2f52b0972754ae42a5c9964df1 (plain)
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
#!/usr/bin/perl

if ( @ARGV != 1 ) {
  print STDERR "Missing arg: filename\n";
  exit 1;
}

$file = $ARGV[0];

if ( !open( IN, "$file" ) ) {
  print STDERR "Unable to open '$file'\n";
  exit 1;
}

while( <IN> ) {
  if (/^VERSION:(.*)$/ ) {
    $version = $1;
    if ( $version eq "2.1" ) { $options = "--vcard21"; }
  }
}

close IN;

$ref = "$file.ref";

if ( !open( REF, "$ref" ) ) {
  print STDERR "Unable to open $ref\n";
  exit 1;
}

while( <REF> ) {
  push @ref, $_;
}

close REF;

if ( !open( READ, "./testread $file $options 2> /dev/null |" ) ) {
  print STDERR "Unable to open testread\n";
  exit 1;
}

print "Checking '$file':\n";

$gotsomething = 0;
$error = 0;
$i = 0;
while( <READ> ) {
  $gotsomething = 1;
  $out = $_;
  $ref = @ref[$i++];

  if ( $out ne $ref ) {
    if ( $ref =~ /^UID/ && $out =~ /^UID/ ) { next; }
    $error++;
    print "  Expected      : $ref";
    print "  Parser output : $out";
  }
}

close READ;

if ( $gotsomething == 0 ) {
  print "\n  FAILED: testread didn't output anything\n";
  system "touch FAILED";
  exit 1;
}
if ( $error > 0 ) {
  print "\n  FAILED: $error errors found.\n";
  system "touch FAILED";
  exit 1;
} else {
  print "  OK\n";
}

exit 0;