#! perl
# Copyright (C) 2001-2005, The Perl Foundation.
# $Id: builtin.t 16171 2006-12-17 19:06:36Z paultcochrane $

use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
use Parrot::Test tests => 4;

=head1 NAME

t/pmc/builtin.t - Builtin Methods

=head1 SYNOPSIS

    % prove t/pmc/builtin.t

=head1 DESCRIPTION

Tests builtin opcode-like methods.

=cut

pir_output_is( <<'CODE', <<'OUT', "three ways to call a method" );
.sub main :main
    .local pmc x, y, cl, m
    x = new Float
    x = 1.0
    # opcode syntax
    print "opcode        "
    y = cos x
    print y
    print "\n"
    # function call syntax
    print "function      "
    y = "cos"(x)
    print y
    print "\n"
    # method call
    print "method        "
    y = x."cos"()
    print y
    print "\n"
.end
CODE
opcode        0.540302
function      0.540302
method        0.540302
OUT

pir_output_is( <<'CODE', <<'OUT', "say" );
.sub main :main
    .local pmc io
    $I0 = say "ok 1"
    io = getstdout
    $I0 = say io, "ok 2"
    say "ok 3"
    say io, "ok 4"
    "say"(io, "ok 5")
    .local pmc s
    s = new .String
    s = "ok 6"
    say io, s
    s = "ok 7"
    say s
.end
CODE
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
OUT

SKIP: {
    skip( "bound methods - n/y", 2 );
    pir_output_is( <<'CODE', <<'OUT', "bound methods" );
.sub main :main
    .local pmc x, y, cl, m
    x = new Float
    x = 1.0
    # bound object nethod
    m = getattribute x, "cos"	# m = x.cos
    print "bound obj met "
    y = m()
    print y
    print "\n"
    # same as class method
    cl = getclass "Float"
    print "class method  "
    y = cl."cos"(x)
    print y
    print "\n"
    # bound class nethod
    print "bound class m "
    m = getattribute cl, "cos"	# m = Float.cos
    y = m(x)
    print y
    print "\n"
.end
CODE
bound obj met 0.540302
class method  0.540302
bound class m 0.540302
OUT

    pir_output_is( <<'CODE', <<'OUT', "ParrotIO.puts" );
.sub main :main
    .local pmc o, m, cl
    o = getstdout
    $I0 = o."puts"("ok 1\n")
    puts $I0, o, "ok 2\n"
    $I0 = "puts"(o, "ok 3\n")
    m = getattribute o, "puts"
    $I0 = m("ok 4\n")
    cl = getclass "ParrotIO"
    $I0 = cl."puts"(o, "ok 5\n")
.end
CODE
ok 1
ok 2
ok 3
ok 4
ok 5
OUT

}

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4:
