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     ! 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");