Minilisp.pm/tool/test-runner.pl

#!/usr/bin/env perl

use strict;
use warnings;

use FindBin;

use lib "$FindBin::Bin/../lib";

use Minilisp;

my $scriptfile = shift;

die "No script file provided." unless defined $scriptfile && -f $scriptfile;

my $parsed = Minilisp::compile_file($scriptfile);

my $plan = 0;

my $ctx = {
  'expect' => sub {
    my ($desc, $success) = @_;
    print "not " unless $success;
    print "ok - $desc\n";
    $plan++;
  },
  comment => sub {
    my ($v) = @_;
    print "# " . Minilisp::lisp_format($v) . "\n";
  },
};

print "TAP Version 13\n";
$parsed->($ctx);

die "No tests" unless $plan > 0;
print "1..$plan\n";

exit 0;