[wxWidgets.git] / tests / formatconverter / formats2.pl

#!/usr/bin/perl -w
#
# Creates longer test formats for wxFormatConverter, containing two '%'s. The
# output is basically the cross product of the output of two './formats.pl's.
#
#   ./formats2.pl | ./formattest
#
use strict;

open IN, './formats.pl |';

while (<IN>) {
    chomp;
    my ($format, $expected) = split "\t";
    open IN2, './formats.pl |';

    while (<IN2>) {
        chomp;
        my ($format2, $expected2) = split "\t";
        print "$format $format2\t$expected $expected2\n";
    }

    close IN2;
}

close IN;
Commit	Line	Data
cfee166d JS	1	#!/usr/bin/perl -w
	2	#
	3	# Creates longer test formats for wxFormatConverter, containing two '%'s. The
	4	# output is basically the cross product of the output of two './formats.pl's.
	5	#
	6	# ./formats2.pl \| ./formattest
	7	#
	8	use strict;
	9
	10	open IN, './formats.pl \|';
	11
	12	while (<IN>) {
	13	chomp;
	14	my ($format, $expected) = split "\t";
	15	open IN2, './formats.pl \|';
	16
	17	while (<IN2>) {
	18	chomp;
	19	my ($format2, $expected2) = split "\t";
	20	print "$format $format2\t$expected $expected2\n";
	21	}
	22
	23	close IN2;
	24	}
	25
	26	close IN;