# Copyright (C) 2006-2009, Parrot Foundation.
# $Id$

.sub 'main' :main
    # set up filehandle
    $P0 = new ['FileHandle']
    $P0.'open'('/dev/null', 'w')
    $P0.'puts'("null null null null null")

    push_eh OK
        # expect incorrect number of parameters
        $P1 = $P0.'flush'() 
    pop_eh
    if_null $P1, OK

  NOK:
    say "not ok"
    end

  OK:
    say "ok"
    end
.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir: