#!/bin/sh # # aegis - project change supervisor. # Copyright (C) 2014 Peter Miller # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or (at # your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License along # with this program. If not, see . # TEST_SUBJECT="abbreviate" # load up standard prelude and test functions . test_funcs cat > test.in << 'fubar' _one-two-three.yacc.o_ _one42two_/three___four.five one_two_three.five one_two.five fubar if test $? -ne 0 ; then no_result; fi cat > test.ok << 'fubar' "_one-two-three.yacc.o_" (22) => "onetwothryac.o" (14) "_one42two_/three___four.five" (28) => "one42twthfo.fi" (14) "one_two_three.five" (18) => "onetwothre.fiv" (14) "one_two.five" (12) => "one_two.five" (12) fubar if test $? -ne 0 ; then no_result; fi # # test the functionality # activity="abbreviate some stuff" test_abbreviate -v -maxlen 14 -kd `cat test.in ` > test.out if test $? -ne 0 ; then fail; fi diff test.ok test.out if test $? -ne 0 ; then fail; fi # # Only definite negatives are possible. # The functionality exercised by this test appears to work, # no other guarantees are made. # pass # vim: set ts=8 sw=4 et :