view release on metacpan or  search on metacpan

t/Sys-IO.t  view on Meta::CPAN

{
  my $tmp_dir = File::Temp->newdir;
  ok(SPVM::TestCase::Sys::IO->mkdir("$tmp_dir"));
}

{
  my $tmp_dir = File::Temp->newdir;
  ok(SPVM::TestCase::Sys::IO->umask("$tmp_dir"));
}

{
  my $tmp_dir = File::Temp->newdir;
  ok(SPVM::TestCase::Sys::IO->rmdir("$tmp_dir"));
}

{
  my $tmp_dir = File::Temp->newdir;
  ok(SPVM::TestCase::Sys::IO->unlink("$tmp_dir"));
}

{
  my $tmp_dir = File::Temp->newdir;
  ok(SPVM::TestCase::Sys::IO->rename("$tmp_dir"));
}

{
  my $tmp_dir = File::Temp->newdir;
  ok(SPVM::TestCase::Sys::IO->fileno("$tmp_dir"));
}

{
  my $tmp_dir = File::Temp->newdir;
  ok(SPVM::TestCase::Sys::IO->getcwd);
}

if ($^O eq 'MSWin32') {
  eval { SPVM::Sys::IO->realpath(undef, undef) };
  like($@, qr|not supported|);
}
else {
  ok(SPVM::TestCase::Sys::IO->realpath);
}

if ($^O eq 'MSWin32') {
  ok(SPVM::TestCase::Sys::IO->_fullpath);
}
else {
  eval { SPVM::Sys::IO->_fullpath(undef, undef, 0) };
  like($@, qr|not supported|);
}

ok(SPVM::TestCase::Sys::IO->chdir);

{
  my $tmp_dir = File::Temp->newdir;
  ok(SPVM::TestCase::Sys::IO->chmod("$tmp_dir"));
}

if ($^O eq 'MSWin32') {
  eval { SPVM::Sys::IO->chown(undef, 0, 0) };
  like($@, qr|not supported|);
}
else {
  my $tmp_dir = File::Temp->newdir;
  ok(SPVM::TestCase::Sys::IO->chown("$tmp_dir"));
}

if ($^O eq 'MSWin32') {
  eval { SPVM::Sys::IO->symlink(undef, undef) };
  like($@, qr|not supported|);
}
else {
  my $tmp_dir = File::Temp->newdir;
  ok(SPVM::TestCase::Sys::IO->symlink("$tmp_dir"));
}

if ($^O eq 'MSWin32') {
  eval { SPVM::Sys::IO->readlink(undef, undef, 0) };
  like($@, qr|not supported|);
}
else {
  my $tmp_dir = File::Temp->newdir;
  ok(SPVM::TestCase::Sys::IO->readlink("$tmp_dir"));
}

ok(SPVM::TestCase::Sys::IO->readline);

ok(SPVM::TestCase::Sys::IO->ungetc);

unless ($^O eq 'MSWin32') {
  ok(SPVM::TestCase::Sys::IO->fsync);
}

ok(SPVM::TestCase::Sys::IO->setvbuf);

ok(SPVM::TestCase::Sys::IO->setbuf);

ok(SPVM::TestCase::Sys::IO->setbuffer);

ok(SPVM::TestCase::Sys::IO->setlinebuf);

ok(SPVM::TestCase::Sys::IO->freopen);

{
  my $tmp_dir = File::Temp->newdir;
  ok(SPVM::TestCase::Sys::IO->truncate("$tmp_dir"));
}

{
  my $tmp_dir = File::Temp->newdir;
  ok(SPVM::TestCase::Sys::IO->ftruncate("$tmp_dir"));
}

# Directory stream system calls
{
  # opendir
  {
    ok(SPVM::TestCase::Sys::IO->opendir);
  }
  
  # readdir
  {
    ok(SPVM::TestCase::Sys::IO->readdir);
  }