#!/usr/bin/perl -w

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't';
        @INC = '../lib';
    }
}

use strict;

BEGIN { $| = 1; $^W = 1; }

use Test::Simple tests => 4;

ok(1, 'compile');

ok(1);
ok(1, 'foo');


# Test the prototype of ok()
{
    my @foo = qw(0 0 0);
    ok @foo, "ok has a scalar prototype";
}