Return to test-axl-knife.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / gpl / axl / test

Annotation of gpl/axl/test/test-axl-knife.pl, revision 1.1.1.1

1.1       misho       1: #!/usr/bin/perl
                      2: 
                      3: # path to command
                      4: $axl_knife = "../knife/axl-knife";
                      5: chomp ($diff = `which diff`);
                      6: 
                      7: sub run_cmd {
                      8:     # get string
                      9:     my $string = $_[0];
                     10: 
                     11:     $result = system ($string);
                     12:     if ($result != 0) {
                     13:        print ("ERROR: found error code ($result) while running $string..\n");
                     14:        exit (-1);
                     15:     }
                     16:     return $result;
                     17: }
                     18: 
                     19: sub test_01 () {
                     20: 
                     21:     ### test ####
                     22:     # call to produce knife representation check with reference
                     23:     run_cmd ("$axl_knife -i knife.test_01.xml -o knife.test_01.xml.tmp -e");
                     24: 
                     25:     # call to get differences
                     26:     run_cmd ("$diff knife.test_01.xml.tmp knife.test_01.ref");
                     27: 
                     28:     ### test ####
                     29:     # call to produce knife representation check with reference
                     30:     run_cmd ("$axl_knife -i knife.test_01.b.xml -o knife.test_01.xml.b.tmp -e");
                     31: 
                     32:     # call to get differences
                     33:     run_cmd ("$diff knife.test_01.xml.b.tmp knife.test_01.b.ref");
                     34: 
                     35:     ### test ####
                     36:     # call to produce knife representation check with reference
                     37:     run_cmd ("$axl_knife -i knife.test_01.c.xml -o knife.test_01.xml.c.tmp -e");
                     38: 
                     39:     # call to get differences
                     40:     run_cmd ("$diff knife.test_01.xml.c.tmp knife.test_01.c.ref");
                     41: 
                     42:     ### test ####
                     43:     # call to produce knife representation check with reference
                     44:     run_cmd ("$axl_knife -i knife.test_01.d.xml -o knife.test_01.xml.d.tmp -e");
                     45: 
                     46:     # call to get differences
                     47:     run_cmd ("$diff knife.test_01.xml.d.tmp knife.test_01.d.ref");
                     48: 
                     49:     return 1;
                     50: }
                     51: 
                     52: 
                     53: ########
                     54: # MAIN #
                     55: ########
                     56: 
                     57: # check if the command is defined
                     58: if (! -e $axl_knife) {
                     59:     print ("ERROR: unable to find axl-knife tool at: $axl_knife..\n");
                     60:     exit (-1);
                     61: }
                     62: 
                     63: if (! test_01 ()) {
                     64:     print ("Test 01: check htmlize function [ FAILED ]\n");
                     65:     exit (-1);
                     66: } else {
                     67:     print ("Test 01: check htmlize function [   OK   ]\n");
                     68: }
                     69: 
                     70: print ("All tests ok!\n");