testsuite/ale.01/align.exp

   1 ###
   2 ### Alignment test file.  For more information, see:
   3 ###
   4 ### http://www.gnu.org/software/dejagnu/manual/
   5 ###
   6
   7 ###
   8 ### Useful Globals
   9 ###
  10
  11 global ALE
  12
  13 ###
  14 ### Helper routines
  15 ###
  16
  17 proc is_within {x y tolerance} {
  18         return [expr abs($x - $y) < $tolerance]
  19 }
  20
  21 proc is_translation {t x y tolerance} {
  22
  23         set command [lindex $t 0]
  24
  25         if [string equal "$command" "P"] {
  26
  27                 #
  28                 # Projective case
  29                 #
  30
  31                 set width [lindex $t 1]
  32                 set height [lindex $t 2]
  33
  34                 set v [expr $x + $width]
  35                 set w [expr $y + $height]
  36
  37                 return [expr [is_within [lindex $t 3] $x $tolerance] && [is_within [lindex $t 4] $y $tolerance] \
  38                           && [is_within [lindex $t 5] $x $tolerance] && [is_within [lindex $t 6] $w $tolerance] \
  39                           && [is_within [lindex $t 7] $v $tolerance] && [is_within [lindex $t 8] $w $tolerance] \
  40                           && [is_within [lindex $t 9] $v $tolerance] && [is_within [lindex $t 10] $y $tolerance]]
  41
  42         } elseif [string equal "$command" "E"] {
  43
  44                 #
  45                 # Euclidean case
  46                 #
  47
  48                 return [expr [is_within [lindex $t 3] $x $tolerance] \
  49                           && [is_within [lindex $t 4] $y $tolerance] \
  50                           && [is_within [lindex $t 5] 0  $tolerance]]
  51
  52         }
  53
  54 }
  55
  56 ###
  57 ### Tests
  58 ###
  59
  60 #
  61 # Transformation Data File Output
  62 #
  63
  64 set test "Transformation Data File Output"
  65
  66 set file [svg_open $test 200 100]
  67 svg_circle $file 50 50 10
  68 svg_close $file
  69
  70 exec $ALE --trans-save [trans_file $test] [ppm_file $test] [out_file $test] 2> /dev/null
  71
  72 if [file exists [trans_file $test]] {
  73         pass "$test (existence)"
  74 } else {
  75         fail "$test (existence)"
  76 }
  77
  78 if [string equal "[exec grep ^V [trans_file $test]]" "V 2"] {
  79         pass "$test (version compatibility)"
  80 } else {
  81         fail "$test (version compatibility): [exec grep ^V [trans_file $test]]"
  82 }
  83
  84 #
  85 # Identical Images
  86 #
  87
  88 set test "Identical Images"
  89
  90 set file [svg_open $test 100 100]
  91 svg_circle $file 50 50 10
  92 svg_circle $file 60 60 10
  93 svg_circle $file 70 70 10
  94 svg_close $file
  95
  96 foreach scale {1 1.1 1.25 1.5} {
  97 foreach type {translation euclidean projective} {
  98
  99         set test_identifier "$test, $type, scale=$scale"
 100
 101         exec $ALE --$type --scale=$scale --trans-save [trans_file $test_identifier] \
 102         [ppm_file $test] [ppm_file $test] [out_file $test] 2> /dev/null
 103
 104         set transformation [exec grep ^\[EP\] [trans_file $test_identifier] | tail -1]
 105         set tlist [split $transformation { }]
 106
 107         if [is_translation $tlist 0 0 0.125] {
 108                 pass "$test_identifier"
 109         } else {
 110                 fail "$test_identifier: $tlist"
 111         }
 112 }}
 113
 114 #
 115 # Translated Ellipses
 116 #
 117
 118 set test "Translated Ellipses"
 119
 120 set file [svg_open $test-reference 100 100]
 121 svg_ellipse $file 50 50 30 10
 122 svg_ellipse $file 80 50 10 30
 123 svg_ellipse $file 20 50 10 30
 124 svg_close $file
 125
 126 foreach scale {1 1.25 1.5} {
 127 foreach type {translation euclidean projective} {
 128 foreach offset {0 1 5 11 18 20 21 22 25 26 27 28 29} {
 129
 130         if [expr $offset >= 30] {
 131                 set fail xfail
 132                 set pass xpass
 133         } else {
 134                 set fail fail
 135                 set pass pass
 136         }
 137
 138         if [string equal "$type" "projective"] {
 139                 set tolerance 1.0
 140         } else {
 141                 set tolerance 0.125
 142         }
 143
 144         set test_identifier "$test, offset=$offset, $type, scale=$scale"
 145
 146         set file [svg_open $test_identifier 100 100]
 147         svg_ellipse $file 50 [expr 50 + $offset] 30 10
 148         svg_ellipse $file 80 [expr 50 + $offset] 10 30
 149         svg_ellipse $file 20 [expr 50 + $offset] 10 30
 150         svg_close $file
 151
 152         exec $ALE --extend --exp-noregister --no-mc --$type --scale=$scale --trans-save [trans_file $test_identifier] \
 153         [ppm_file $test-reference] [ppm_file $test_identifier] \
 154         [out_file $test_identifier] 2> /dev/null
 155
 156         set transformation [exec grep ^\[EP\] [trans_file $test_identifier] | tail -1]
 157         set tlist [split $transformation { }]
 158
 159         if [is_translation $tlist 0 [expr -$offset * $scale] $tolerance] {
 160                 $pass "$test_identifier"
 161         } else {
 162                 $fail "$test_identifier: $transformation"
 163         }
 164 }}}