Modified: MacRuby/branches/experimental/io.c (1267 => 1268)
--- MacRuby/branches/experimental/io.c 2009-03-30 17:06:29 UTC (rev 1267)
+++ MacRuby/branches/experimental/io.c 2009-03-30 18:13:14 UTC (rev 1268)
@@ -2620,11 +2620,23 @@
rb_io_initialize(VALUE io, SEL sel, int argc, VALUE *argv)
{
VALUE file_descriptor, mode;
- int mode_flags;
- rb_io_t *io_struct = ExtractIOStruct(io);
+ int mode_flags, fd;
+ struct stat st;
rb_scan_args(argc, argv, "11", &file_descriptor, &mode);
+
+ rb_io_t *io_struct = ExtractIOStruct(io);
+ file_descriptor = rb_check_to_integer(file_descriptor, "to_int");
+ if (NIL_P(file_descriptor)) {
+ rb_raise(rb_eTypeError, "can't convert %s into Integer", rb_obj_classname(file_descriptor));
+ }
+ fd = FIX2INT(file_descriptor);
+
+ if (fstat(fd, &st) < 0) {
+ rb_sys_fail(0);
+ }
+
mode_flags = (NIL_P(mode) ? FMODE_READABLE : convert_mode_string_to_fmode(mode));
- prepare_io_from_fd(io_struct, FIX2INT(file_descriptor), mode_flags);
+ prepare_io_from_fd(io_struct, fd, mode_flags);
return io;
}
Modified: MacRuby/branches/experimental/rakelib/spec.rake (1267 => 1268)
--- MacRuby/branches/experimental/rakelib/spec.rake 2009-03-30 17:06:29 UTC (rev 1267)
+++ MacRuby/branches/experimental/rakelib/spec.rake 2009-03-30 18:13:14 UTC (rev 1268)
@@ -31,6 +31,7 @@
closed
to_i
to_io
+ initialize
}
desc "Run all language known good spec files which should be fully green (does not use tags)"
@@ -59,7 +60,7 @@
desc "Try to run IO tests"
task :io do
files = FileList["spec/frozen/core/io/{#{KNOWN_GOOD_CORE_IO.join(',')}}_spec.rb"]
- sh "./miniruby -v -I./mspec/lib -I./lib ./mspec/bin/mspec-run #{files.join(' ')}"
+ sh "./miniruby -v -I./mspec/lib -I./lib ./mspec/bin/mspec-run -f s #{files.join(' ')}"
end
desc "Run language examples that are known to fail"