source: trunk/essentials/dev-lang/perl/ext/threads/t/basic.t@ 3403

#
# The reason this does not use a Test module is that
# they mess up test numbers between threads
#
# And even when that will be fixed, this is a basic
# test and should not rely on shared variables
#
# This will test the basic API, it will not use any coderefs
# as they are more advanced
#
#########################


BEGIN {
    chdir 't' if -d 't';
    push @INC, '../lib';
    require Config; import Config;
    unless ($Config{'useithreads'}) {
        print "1..0 # Skip: no useithreads\n";
        exit 0; 
    }
}

use ExtUtils::testlib;
use strict;
BEGIN { $| = 1; print "1..19\n" };
use threads;



print "ok 1\n";


#########################




sub ok {        
    my ($id, $ok, $name) = @_;

    # You have to do it this way or VMS will get confused.
    print $ok ? "ok $id - $name\n" : "not ok $id - $name\n";

    printf "# Failed test at line %d\n", (caller)[2] unless $ok;

    return $ok;
}



sub test1 {
        ok(2,'bar' eq $_[0],"Test that argument passing works");
}