Fixed mruby-io test failure on Windows platform.

mrbgems/mruby-io/test/file.rb

@@ -106,6 +106,7 @@ assert("File.readlink") do
 end
 
 assert("File.readlink fails with non-symlink") do
+  skip "readlink is not supported on this platform" if MRubyIOTestUtil.win?
   begin
     e2 = nil
     assert_raise(RuntimeError) {
@@ -126,10 +127,6 @@ assert("File.readlink fails with non-symlink") do
   end
 end
 
-assert('File TEST CLEANUP') do
-  assert_nil MRubyIOTestUtil.io_test_cleanup
-end
-
 assert('File.expand_path') do
   assert_equal "/",    File.expand_path("..", "/tmp"),       "parent path with base_dir (1)"
   assert_equal "/tmp", File.expand_path("..", "/tmp/mruby"), "parent path with base_dir (2)"
@@ -194,3 +191,7 @@ assert('File.chmod') do
     File.delete('chmod-test')
   end
 end
+
+assert('File TEST CLEANUP') do
+  assert_nil MRubyIOTestUtil.io_test_cleanup
+end

mrbgems/mruby-io/test/io.rb

@@ -23,6 +23,7 @@ end
 
 assert('IO TEST SETUP') do
   MRubyIOTestUtil.io_test_setup
+  $cr = MRubyIOTestUtil.win? ? 1 : 0  # "\n" include CR or not
 end
 
 assert('IO', '15.2.20') do
@@ -141,6 +142,7 @@ assert('IO#read', '15.2.20.5.14') do
 end
 
 assert "IO#read(n) with n > IO::BUF_SIZE" do
+  skip "pipe is not supported on this platform" if MRubyIOTestUtil.win?
   r,w = IO.pipe
   n = IO::BUF_SIZE+1
   w.write 'a'*n
@@ -308,6 +310,7 @@ assert('IO#_read_buf') do
 end
 
 assert('IO#isatty') do
+  skip "isatty is not supported on this platform" if MRubyIOTestUtil.win?
   f1 = File.open("/dev/tty")
   f2 = File.open($mrbtest_io_rfname)
 
@@ -370,7 +373,7 @@ assert('IO#gets') do
   fd = IO.sysopen $mrbtest_io_wfname, "w"
   io = IO.new fd, "w"
   io.write "0123456789" * 2 + "\na"
-  assert_equal 22, io.pos
+  assert_equal 22 + $cr, io.pos
   io.close
   assert_equal true, io.closed?
 
@@ -381,7 +384,7 @@ assert('IO#gets') do
   # gets first line
   assert_equal "0123456789" * 2 + "\n", line, "gets first line"
   assert_equal 21, line.size
-  assert_equal 21, io.pos
+  assert_equal 21 + $cr, io.pos
 
   # gets second line
   assert_equal "a", io.gets, "gets second line"
@@ -399,7 +402,7 @@ assert('IO#gets - paragraph mode') do
   io.write "0" * 10 + "\n"
   io.write "1" * 10 + "\n\n"
   io.write "2" * 10 + "\n"
-  assert_equal 34, io.pos
+  assert_equal 34 + $cr * 4, io.pos
   io.close
   assert_equal true, io.closed?
 
@@ -516,6 +519,7 @@ assert('IO#close_on_exec') do
     # IO.sysopen opens a file descripter with O_CLOEXEC flag.
     assert_true io.close_on_exec?
   rescue ScriptError
+    io.close
     skip "IO\#close_on_exec is not implemented."
   end
 

mrbgems/mruby-io/test/mruby_io_test.c

@@ -18,19 +18,8 @@ typedef int mode_t;
 static int
 mkstemp(char *p)
 {
-  char *temp, *path;
-  int fd;
-
-  temp = _strdup(p);
-  if (temp == NULL) return -1;
-  path = _mktemp(temp);
-  if (path[0] == 0) {
-    free(path);
-    return -1;
-  }
-  fd = _open(path, _O_CREAT|_O_BINARY|_O_RDWR|_O_TEMPORARY);
-  free(path);
-  return fd;
+  _mktemp(p);
+  return 0;
 }
 
 static char*
@@ -63,30 +52,31 @@ mkdtemp(char *temp)
 static mrb_value
 mrb_io_test_io_setup(mrb_state *mrb, mrb_value self)
 {
-  char rfname[]      = "tmp.mruby-io-test.XXXXXXXX";
-  char wfname[]      = "tmp.mruby-io-test.XXXXXXXX";
+  char rfname[]      = "tmp.mruby-io-test-r.XXXXXXXX";
+  char wfname[]      = "tmp.mruby-io-test-w.XXXXXXXX";
   char symlinkname[] = "tmp.mruby-io-test.XXXXXXXX";
   char socketname[]  = "/tmp/mruby-io-test.XXXXXXXX";
   char msg[] = "mruby io test\n";
   mode_t mask;
-  int fd0, fd1, fd2, fd3;
+  int fd0, fd1;
   FILE *fp;
 
-#ifndef _WIN32
+#if !defined(_WIN32) && !defined(_WIN64)
+  int fd2, fd3;
   struct sockaddr_un sun0;
 #endif
 
   mask = umask(077);
   fd0 = mkstemp(rfname);
   fd1 = mkstemp(wfname);
-#ifndef _WIN32
+#if !defined(_WIN32) && !defined(_WIN64)
   fd2 = mkstemp(symlinkname);
   fd3 = mkstemp(socketname);
-#endif
   if (fd0 == -1 || fd1 == -1 || fd2 == -1 || fd3 == -1) {
     mrb_raise(mrb, E_RUNTIME_ERROR, "can't create temporary file");
     return mrb_nil_value();
   }
+#endif
   umask(mask);
 
   mrb_gv_set(mrb, mrb_intern_cstr(mrb, "$mrbtest_io_rfname"), mrb_str_new_cstr(mrb, rfname));
@@ -110,7 +100,7 @@ mrb_io_test_io_setup(mrb_state *mrb, mrb_value self)
   }
   fclose(fp);
 
-#ifndef _WIN32
+#if !defined(_WIN32) && !defined(_WIN64)
   unlink(symlinkname);
   close(fd2);
   if (symlink(rfname, symlinkname) == -1) {
@@ -170,7 +160,7 @@ static mrb_value
 mrb_io_test_file_setup(mrb_state *mrb, mrb_value self)
 {
   mrb_value ary = mrb_io_test_io_setup(mrb, self);
-#ifndef _WIN32
+#if !defined(_WIN32) && !defined(_WIN64)
   if (symlink("/usr/bin", "test-bin") == -1) {
     mrb_raise(mrb, E_RUNTIME_ERROR, "can't make a symbolic link");
   }
@@ -216,6 +206,20 @@ mrb_io_test_rmdir(mrb_state *mrb, mrb_value klass)
   return mrb_true_value();
 }
 
+mrb_value
+mrb_io_win_p(mrb_state *mrb, mrb_value klass)
+{
+#if defined(_WIN32) || defined(_WIN64)
+# if defined(__CYGWIN__) || defined(__CYGWIN32__)
+  return mrb_false_value();
+# else
+  return mrb_true_value();
+# endif
+#else
+  return mrb_false_value();
+#endif
+}
+
 void
 mrb_mruby_io_gem_test(mrb_state* mrb)
 {
@@ -228,4 +232,5 @@ mrb_mruby_io_gem_test(mrb_state* mrb)
 
   mrb_define_class_method(mrb, io_test, "mkdtemp", mrb_io_test_mkdtemp, MRB_ARGS_REQ(1));
   mrb_define_class_method(mrb, io_test, "rmdir", mrb_io_test_rmdir, MRB_ARGS_REQ(1));
+  mrb_define_class_method(mrb, io_test, "win?", mrb_io_win_p, MRB_ARGS_NONE());
 }