use v6-alpha;
use Test;
plan 5;

# L<S16/"Filehandles, files, and directories"/"open">

=pod

Some edge and error cases for open()

=cut


if $*OS eq "browser" {
  skip_rest "Programs running in browsers don't have access to regular IO.";
  exit;
}

# deal with non-existent files
{
    skip 1, "open('nonexisting') => undef is waiting on 'use fatal'";
    if 0 {
        ok(!defined(open("file_which_does_not_exist")), 'open() on non-existent file returns undef');
    }

    open("create_this_file", :w);
    ok(-e 'create_this_file', 'writing to a non-existent file creates it');
    unlink('create_this_file');

    open("create_this_file2", :w);
    ok(-e 'create_this_file2', 'appending to a non-existent file creates it');
    unlink('create_this_file2');
}


=pod

I/O Redirection to scalar tests

=cut

skip_rest("needs speccing"); exit;

# XXX: gaal: dunno how this should be, but this isn't it.
ok(try { open $*OUT,">",\$scalar },'Direct STDOUT to a scalar', :todo);
ok(try { open $*ERR,">",\$scalar },'Direct STDERR to a scalar', :todo);