testsuite/as3compile.all/dejagnu.as

   1 // Dejagnu.as - MTASC class for dejagnu-like testing.
   2 //
   3 //   Copyright (C) 2005, 2006, 2007, 2009, 2010 Free Software
   4 //   Foundation, Inc
   5 //
   6 // This program is free software; you can redistribute it and/or modify
   7 // it under the terms of the GNU General Public License as published by
   8 // the Free Software Foundation; either version 3 of the License, or
   9 // (at your option) any later version.
  10 //
  11 // This program is distributed in the hope that it will be useful,
  12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 // GNU General Public License for more details.
  15 //
  16 // You should have received a copy of the GNU General Public License
  17 // along with this program; if not, write to the Free Software
  18 // Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
  19
  20 package dejagnu {
  21
  22     import flash.text.*;
  23
  24     public class Dejagnu {
  25
  26         private static var passed = 0;
  27         private static var failed = 0;
  28         private static var xpassed = 0;
  29         private static var xfailed = 0;
  30         private static var untest = 0;
  31         private static var unresolve = 0;
  32         private static var tf:TextField = new TextField();
  33
  34         public static function fail (why) {
  35             failed++;
  36             var msg = 'FAILED: '+why;
  37             xtrace(msg);
  38         }
  39
  40         public static function xfail(why) {
  41             xfailed++;
  42             var msg = 'XFAILED: '+why;
  43             xtrace(msg);
  44         }
  45
  46         public static function pass(why) {
  47             passed++;
  48             var msg = 'PASSED: '+why;
  49             trace (msg);
  50         }
  51
  52         public static function xpass(why) {
  53             xpassed++;
  54             var msg = 'XPASSED: '+why;
  55             trace (msg);
  56         }
  57
  58         public static function totals(exp, msg) {
  59             var obt = testcount();
  60             if ( exp != undefined && obt != exp ) {
  61                 fail('Test run '+obt+' (expected '+exp+') ['+msg+']');
  62             } else {
  63                 pass('Test run '+obt+' ['+msg+']');
  64             }
  65         }
  66
  67         public static function xtotals(exp, msg) {
  68             var obt = testcount();
  69             if ( exp != undefined && obt != exp ) {
  70                 xfail('Test run '+obt+' (expected '+exp+') ['+msg+']');
  71             } else {
  72                 xpass('Test run '+obt+' ['+msg+']');
  73             }
  74         }
  75
  76         public static function check_equals(obt, exp, msg, expression) {
  77             if (msg == null) msg = "";
  78             if (obt == exp) {
  79                 pass(expression + ' == ' + exp + ' ' + msg);
  80             }
  81             else {
  82                 fail(expression + ': expected: "' + exp +
  83                         '" , obtained: "' + obt + '" ' + msg);
  84             }
  85         }
  86
  87         public static function xcheck_equals(obt, exp, msg, expression) {
  88             if (msg == null) msg = "";
  89             if (obt == exp) {
  90                 xpass(expression + ' == ' + exp + ' ' + msg);
  91             }
  92             else {
  93                 xfail(expression + ': expected: "' + exp +
  94                         '" , obtained: "' + obt + '" ' + msg);
  95             }
  96         }
  97
  98         public static function check(a, msg) {
  99             if (a) {
 100                 pass(msg != undefined ? msg : a);
 101             }
 102             else {
 103                 fail(msg != undefined ? msg : a);
 104             }
 105         }
 106
 107         public static function xcheck(a, msg) {
 108             if (a) {
 109                 xpass(msg != undefined ? msg : a);
 110             }
 111             else {
 112                 xfail(msg != undefined ? msg : a);
 113             }
 114         }
 115
 116         public static function note(msg) {
 117             xtrace(msg);
 118         }
 119
 120         public static function untested(msg) {
 121             trace("UNTESTED: "+msg);
 122         }
 123
 124         public static function unresolved(msg) {
 125             trace("UNRESOLVED: "+msg);
 126         }
 127
 128         /// Private functions.
 129
 130         private static function xtrace(msg) {
 131             //tf.text += msg + "\n";
 132             trace(msg);
 133         }
 134
 135         private static function done() {
 136             printtotals();
 137             trace("__END_OF_TEST__");
 138         }
 139
 140         private static function testcount() {
 141             var c = 0;
 142             if ( passed ) c += passed;
 143             if ( failed ) c += failed;
 144             if ( xpassed ) c += xpassed;
 145             if ( xfailed ) c += xfailed;
 146             return c;
 147         }
 148
 149         private static function printtotals() {
 150             xtrace('#passed: '+ passed);
 151             xtrace('#failed: '+ failed);
 152             if ( xpassed ) {
 153                 xtrace('#unexpected successes: '+ xpassed);
 154             }
 155             if ( xfailed ) {
 156                 xtrace('#expected failures: '+ xfailed);
 157             }
 158             xtrace('#total tests run: '+ testcount());
 159         }
 160
 161
 162     }
 163
 164 }
 165