testsuite/ale.00/sanity.exp

   1 ###
   2 ### Test environment sanity check.  For more information, see:
   3 ###
   4 ### http://www.gnu.org/software/dejagnu/manual/
   5 ###
   6
   7 ###
   8 ### Import globals (XXX: is this necessary?)
   9 ###
  10
  11 global ALE
  12
  13 ###
  14 ### Tests
  15 ###
  16
  17 #
  18 # ALE version: response and assertions check
  19 #
  20
  21 set test "ALE version response"
  22 set result [exec $ALE --version]
  23 if [regexp ".*ALE Version.*" $result] {
  24         pass "$test";
  25 } else {
  26         fail "$test";
  27         clone_output "$result";
  28 }
  29
  30 set test "ALE assertions enabled"
  31 if [regexp ".*Assertions: *Enabled" $result] {
  32         pass "$test";
  33 } else {
  34         fail "$test";
  35 }
  36
  37 #
  38 # PPM files: availability (initial and second access)
  39 #
  40
  41 set test "PPM file availability"
  42 if [file exists [ppm_file ellipse]] {
  43         pass "$test"
  44 } else {
  45         fail "$test"
  46 }
  47
  48 set test "PPM file availability (re-access)"
  49 if [file exists [ppm_file ellipse]] {
  50         pass "$test"
  51 } else {
  52         fail "$test"
  53 }
  54
  55 #
  56 # SVG file construction: completion and validity
  57 #
  58
  59 set test "SVG file construction"
  60
  61 set test_file [svg_open $test-1 300 200]
  62 svg_ellipse $test_file 150 100 100 50
  63 svg_close $test_file
  64
  65 if [file exists [svg_file $test-1]] {
  66         pass "$test (completion)"
  67 } else {
  68         fail "$test (completion)"
  69 }
  70
  71 if [file exists [png_file $test-1]] {
  72         pass "$test (validity)"
  73 } else {
  74         fail "$test (validity)"
  75 }