#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

my ($nrof, $file) = @ARGV;
$nrof = 50
   unless $nrof;
die "Usage: gentests <nrof> <file>\n"
   unless $file;

my $i = 0;
my $tests = "";

while ($i++ < $nrof) {
   $tests .= "  exec_test<$i> ();\n";
}

my $data = do { local $/; open my $fh, "<", $file or die "$file: $!"; <$fh> };
$data =~ s/!TESTS!/$tests/;

print $data;

=head1 AUTHOR

Copyright © 2007 Pippijn van Steenhoven

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the terms of the GNU General Public License version 3.