aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog10
-rw-r--r--ext/syck/rubyext.c69
-rw-r--r--lib/rdoc/ri/ri_formatter.rb2
-rw-r--r--lib/rss/taxonomy.rb4
-rw-r--r--test/ruby/test_assignment.rb297
5 files changed, 204 insertions, 178 deletions
diff --git a/ChangeLog b/ChangeLog
index 16cbc6fe81..a298023c0f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+Thu Mar 4 08:08:36 2004 Nobuyoshi Nakada <nobu@ruby-lang.org>
+
+ * ext/syck/rubyext.c: get rid of warnings.
+
+ * lib/rss/taxonomy.rb: ditto.
+
+ * lib/rdoc/ri/ri_formatter.rb: ditto.
+
+ * test/ruby/test_assignment.rb: ditto.
+
Thu Mar 4 01:17:28 2004 Nobuyoshi Nakada <nobu@ruby-lang.org>
* lib/rdoc/ri/ri_display.rb (DefaultDisplay::page): wait until the
diff --git a/ext/syck/rubyext.c b/ext/syck/rubyext.c
index 0077370f9f..7e6d0e637e 100644
--- a/ext/syck/rubyext.c
+++ b/ext/syck/rubyext.c
@@ -50,6 +50,7 @@ typedef struct {
* symbols and constants
*/
static ID s_new, s_utc, s_at, s_to_f, s_to_i, s_read, s_binmode, s_call, s_transfer, s_update, s_dup, s_match, s_keys, s_to_str, s_unpack, s_tr_bang, s_anchors, s_default_set;
+static ID s_anchors, s_domain, s_families, s_kind, s_name, s_options, s_private_types, s_type_id, s_value;
static VALUE sym_model, sym_generic, sym_input, sym_bytecode;
static VALUE sym_scalar, sym_seq, sym_map;
VALUE cDate, cParser, cLoader, cNode, cPrivateType, cDomainType, cBadAlias, cDefaultKey, cMergeKey, cEmitter;
@@ -296,18 +297,18 @@ rb_syck_parse_handler(p, n)
if ( n->type_id != NULL )
{
t = rb_str_new2(n->type_id);
- rb_iv_set(obj, "@type_id", t);
+ rb_ivar_set(obj, s_type_id, t);
}
switch (n->kind)
{
case syck_str_kind:
- rb_iv_set(obj, "@kind", sym_scalar);
+ rb_ivar_set(obj, s_kind, sym_scalar);
v = rb_str_new( n->data.str->ptr, n->data.str->len );
break;
case syck_seq_kind:
- rb_iv_set(obj, "@kind", sym_seq);
+ rb_ivar_set(obj, s_kind, sym_seq);
v = rb_ary_new2( n->data.list->idx );
for ( i = 0; i < n->data.list->idx; i++ )
{
@@ -316,7 +317,7 @@ rb_syck_parse_handler(p, n)
break;
case syck_map_kind:
- rb_iv_set(obj, "@kind", sym_map);
+ rb_ivar_set(obj, s_kind, sym_map);
v = rb_hash_new();
for ( i = 0; i < n->data.pairs->idx; i++ )
{
@@ -334,7 +335,7 @@ rb_syck_parse_handler(p, n)
if ( bonus->taint) OBJ_TAINT( obj );
if ( bonus->proc != 0 ) rb_funcall(bonus->proc, s_call, 1, v);
- rb_iv_set(obj, "@value", v);
+ rb_ivar_set(obj, s_value, v);
rb_hash_aset(bonus->data, INT2FIX(RHASH(bonus->data)->tbl->num_entries), obj);
return obj;
}
@@ -781,7 +782,7 @@ static VALUE
syck_parser_initialize( self, options )
VALUE self, options;
{
- rb_iv_set(self, "@options", options);
+ rb_ivar_set(self, s_options, options);
return self;
}
@@ -831,8 +832,8 @@ syck_parser_load(argc, argv, self)
rb_scan_args(argc, argv, "11", &port, &proc);
Data_Get_Struct(self, SyckParser, parser);
- input = rb_hash_aref( rb_iv_get( self, "@options" ), sym_input );
- model = rb_hash_aref( rb_iv_get( self, "@options" ), sym_model );
+ input = rb_hash_aref( rb_attr_get( self, s_options ), sym_input );
+ model = rb_hash_aref( rb_attr_get( self, s_options ), sym_model );
syck_set_model( parser, input, model );
bonus.taint = syck_parser_assign_io(parser, port);
@@ -862,8 +863,8 @@ syck_parser_load_documents(argc, argv, self)
rb_scan_args(argc, argv, "1&", &port, &proc);
Data_Get_Struct(self, SyckParser, parser);
- input = rb_hash_aref( rb_iv_get( self, "@options" ), sym_input );
- model = rb_hash_aref( rb_iv_get( self, "@options" ), sym_model );
+ input = rb_hash_aref( rb_attr_get( self, s_options ), sym_input );
+ model = rb_hash_aref( rb_attr_get( self, s_options ), sym_model );
syck_set_model( parser, input, model );
bonus.taint = syck_parser_assign_io(parser, port);
@@ -897,10 +898,10 @@ syck_loader_initialize( self )
{
VALUE families;
- rb_iv_set(self, "@families", rb_hash_new() );
- rb_iv_set(self, "@private_types", rb_hash_new() );
- rb_iv_set(self, "@anchors", rb_hash_new() );
- families = rb_iv_get(self, "@families");
+ families = rb_hash_new();
+ rb_ivar_set(self, s_families, families);
+ rb_ivar_set(self, s_private_types, rb_hash_new());
+ rb_ivar_set(self, s_anchors, rb_hash_new());
rb_hash_aset(families, rb_str_new2( YAML_DOMAIN ), rb_hash_new());
rb_hash_aset(families, rb_str_new2( RUBY_DOMAIN ), rb_hash_new());
@@ -917,7 +918,7 @@ syck_loader_add_type_family( self, domain, type_re, proc )
{
VALUE families, domain_types;
- families = rb_iv_get(self, "@families");
+ families = rb_attr_get(self, s_families);
domain_types = syck_get_hash_aref(families, domain);
rb_hash_aset( domain_types, type_re, proc );
return Qnil;
@@ -985,7 +986,7 @@ syck_loader_add_private_type( argc, argv, self )
rb_scan_args(argc, argv, "1&", &type_re, &proc);
- priv_types = rb_iv_get(self, "@private_types");
+ priv_types = rb_attr_get(self, s_private_types);
rb_hash_aset( priv_types, type_re, proc );
return Qnil;
}
@@ -1070,13 +1071,13 @@ syck_loader_transfer( self, type, val )
if ( rb_str_cmp( scheme, str_xprivate ) == 0 )
{
name = rb_ary_join( parts, rb_str_new2( ":" ) );
- type_hash = rb_iv_get(self, "@private_types");
+ type_hash = rb_attr_get(self, s_private_types);
}
else if ( rb_str_cmp( scheme, str_taguri ) == 0 )
{
domain = rb_ary_shift( parts );
name = rb_ary_join( parts, rb_str_new2( ":" ) );
- type_hash = rb_iv_get(self, "@families");
+ type_hash = rb_attr_get(self, s_families);
type_hash = rb_hash_aref(type_hash, domain);
/*
@@ -1141,7 +1142,7 @@ VALUE
syck_badalias_initialize( self, val )
VALUE self, val;
{
- rb_iv_set( self, "@name", val );
+ rb_ivar_set( self, s_name, val );
return self;
}
@@ -1152,9 +1153,9 @@ VALUE
syck_domaintype_initialize( self, domain, type_id, val )
VALUE self, type_id, val;
{
- rb_iv_set( self, "@domain", domain );
- rb_iv_set( self, "@type_id", type_id );
- rb_iv_set( self, "@value", val );
+ rb_ivar_set( self, s_domain, domain );
+ rb_ivar_set( self, s_type_id, type_id );
+ rb_ivar_set( self, s_value, val );
return self;
}
@@ -1165,8 +1166,8 @@ VALUE
syck_privatetype_initialize( self, type_id, val )
VALUE self, type_id, val;
{
- rb_iv_set( self, "@type_id", type_id );
- rb_iv_set( self, "@value", val );
+ rb_ivar_set( self, s_type_id, type_id );
+ rb_ivar_set( self, s_value, val );
return self;
}
@@ -1177,8 +1178,8 @@ VALUE
syck_node_initialize( self, type_id, val )
VALUE self, type_id, val;
{
- rb_iv_set( self, "@type_id", type_id );
- rb_iv_set( self, "@value", val );
+ rb_ivar_set( self, s_type_id, type_id );
+ rb_ivar_set( self, s_value, val );
return self;
}
@@ -1210,8 +1211,8 @@ syck_node_transform( self )
VALUE self;
{
VALUE t = Qnil;
- VALUE type_id = rb_iv_get( self, "@type_id" );
- VALUE val = rb_iv_get( self, "@value" );
+ VALUE type_id = rb_attr_get( self, s_type_id );
+ VALUE val = rb_attr_get( self, s_value );
if ( rb_obj_is_instance_of( val, rb_cHash ) )
{
t = rb_hash_new();
@@ -1295,7 +1296,7 @@ static VALUE
syck_emitter_initialize( self, options )
VALUE self, options;
{
- rb_iv_set(self, "@options", options);
+ rb_ivar_set(self, s_options, options);
return self;
}
@@ -1427,6 +1428,16 @@ Init_syck()
s_tr_bang = rb_intern("tr!");
s_unpack = rb_intern("unpack");
+ s_anchors = rb_intern("@anchors");
+ s_domain = rb_intern("@domain");
+ s_families = rb_intern("@families");
+ s_kind = rb_intern("@kind");
+ s_name = rb_intern("@name");
+ s_options = rb_intern("@options");
+ s_private_types = rb_intern("@private_types");
+ s_type_id = rb_intern("@type_id");
+ s_value = rb_intern("@value");
+
sym_model = ID2SYM(rb_intern("Model"));
sym_generic = ID2SYM(rb_intern("Generic"));
sym_input = ID2SYM(rb_intern("Input"));
diff --git a/lib/rdoc/ri/ri_formatter.rb b/lib/rdoc/ri/ri_formatter.rb
index 07439b93f7..dfc5d031d5 100644
--- a/lib/rdoc/ri/ri_formatter.rb
+++ b/lib/rdoc/ri/ri_formatter.rb
@@ -57,7 +57,7 @@ module RI
end
end
res << work if work.length.nonzero?
- puts (prefix + res.join("\n" + next_prefix))
+ puts(prefix + res.join("\n" + next_prefix))
end
######################################################################
diff --git a/lib/rss/taxonomy.rb b/lib/rss/taxonomy.rb
index 5d3dd5bf85..5b11d338e0 100644
--- a/lib/rss/taxonomy.rb
+++ b/lib/rss/taxonomy.rb
@@ -19,9 +19,9 @@ module RSS
end
module TaxonomyModel
- attr_writer *%w(title description creator subject publisher
+ attr_writer(*%w(title description creator subject publisher
contributor date format identifier source
- language relation coverage rights).collect{|x| "#{TAXO_PREFIX}_#{x}"}
+ language relation coverage rights).collect{|x| "#{TAXO_PREFIX}_#{x}"})
end
class Channel; extend TaxonomyModel; end
diff --git a/test/ruby/test_assignment.rb b/test/ruby/test_assignment.rb
index 63f37a9d73..d239e90445 100644
--- a/test/ruby/test_assignment.rb
+++ b/test/ruby/test_assignment.rb
@@ -86,155 +86,155 @@ class TestAssignment < Test::Unit::TestCase
end
def test_yield
- def f; yield nil; end; f {|a| assert_nil(a)}
- def f; yield 1; end; f {|a| assert_equal(1, a)}
- def f; yield []; end; f {|a| assert_equal([], a)}
- def f; yield [1]; end; f {|a| assert_equal([1], a)}
- def f; yield [nil]; end; f {|a| assert_equal([nil], a)}
- def f; yield [[]]; end; f {|a| assert_equal([[]], a)}
- def f; yield [*[]]; end; f {|a| assert_equal([], a)}
- def f; yield [*[1]]; end; f {|a| assert_equal([1], a)}
- def f; yield [*[1,2]]; end; f {|a| assert_equal([1,2], a)}
-
- def f; yield *nil; end; f {|a| assert_nil(a)}
- def f; yield *1; end; f {|a| assert_equal(1, a)}
- def f; yield *[1]; end; f {|a| assert_equal(1, a)}
- def f; yield *[nil]; end; f {|a| assert_nil(a)}
- def f; yield *[[]]; end; f {|a| assert_equal([], a)}
- def f; yield *[*[1]]; end; f {|a| assert_equal(1, a)}
-
- def f; yield; end; f {|*a| assert_equal([], a)}
- def f; yield nil; end; f {|*a| assert_equal([nil], a)}
- def f; yield 1; end; f {|*a| assert_equal([1], a)}
- def f; yield []; end; f {|*a| assert_equal([[]], a)}
- def f; yield [1]; end; f {|*a| assert_equal([[1]], a)}
- def f; yield [nil]; end; f {|*a| assert_equal([[nil]], a)}
- def f; yield [[]]; end; f {|*a| assert_equal([[[]]], a)}
- def f; yield [1,2]; end; f {|*a| assert_equal([[1,2]], a)}
- def f; yield [*[]]; end; f {|*a| assert_equal([[]], a)}
- def f; yield [*[1]]; end; f {|*a| assert_equal([[1]], a)}
- def f; yield [*[1,2]]; end; f {|*a| assert_equal([[1,2]], a)}
-
- def f; yield *nil; end; f {|*a| assert_equal([nil], a)}
- def f; yield *1; end; f {|*a| assert_equal([1], a)}
- def f; yield *[]; end; f {|*a| assert_equal([], a)}
- def f; yield *[1]; end; f {|*a| assert_equal([1], a)}
- def f; yield *[nil]; end; f {|*a| assert_equal([nil], a)}
- def f; yield *[[]]; end; f {|*a| assert_equal([[]], a)}
- def f; yield *[*[]]; end; f {|*a| assert_equal([], a)}
- def f; yield *[*[1]]; end; f {|*a| assert_equal([1], a)}
- def f; yield *[*[1,2]]; end; f {|*a| assert_equal([1,2], a)}
-
- def f; yield; end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}
- def f; yield nil; end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}
- def f; yield 1; end; f {|a,b,*c| assert_equal([1,nil,[]], [a,b,c])}
- def f; yield []; end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}
- def f; yield [1]; end; f {|a,b,*c| assert_equal([1,nil,[]], [a,b,c])}
- def f; yield [nil]; end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}
- def f; yield [[]]; end; f {|a,b,*c| assert_equal([[],nil,[]], [a,b,c])}
- def f; yield [*[]]; end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}
- def f; yield [*[1]]; end; f {|a,b,*c| assert_equal([1,nil,[]], [a,b,c])}
- def f; yield [*[1,2]]; end; f {|a,b,*c| assert_equal([1,2,[]], [a,b,c])}
-
- def f; yield *nil; end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}
- def f; yield *1; end; f {|a,b,*c| assert_equal([1,nil,[]], [a,b,c])}
- def f; yield *[]; end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}
- def f; yield *[1]; end; f {|a,b,*c| assert_equal([1,nil,[]], [a,b,c])}
- def f; yield *[nil]; end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}
- def f; yield *[[]]; end; f {|a,b,*c| assert_equal([[],nil,[]], [a,b,c])}
- def f; yield *[*[]]; end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}
- def f; yield *[*[1]]; end; f {|a,b,*c| assert_equal([1,nil,[]], [a,b,c])}
- def f; yield *[*[1,2]]; end; f {|a,b,*c| assert_equal([1,2,[]], [a,b,c])}
+ def f; yield(nil); end; f {|a| assert_nil(a)}; undef f
+ def f; yield(1); end; f {|a| assert_equal(1, a)}; undef f
+ def f; yield([]); end; f {|a| assert_equal([], a)}; undef f
+ def f; yield([1]); end; f {|a| assert_equal([1], a)}; undef f
+ def f; yield([nil]); end; f {|a| assert_equal([nil], a)}; undef f
+ def f; yield([[]]); end; f {|a| assert_equal([[]], a)}; undef f
+ def f; yield([*[]]); end; f {|a| assert_equal([], a)}; undef f
+ def f; yield([*[1]]); end; f {|a| assert_equal([1], a)}; undef f
+ def f; yield([*[1,2]]); end; f {|a| assert_equal([1,2], a)}; undef f
+
+ def f; yield(*nil); end; f {|a| assert_nil(a)}; undef f
+ def f; yield(*1); end; f {|a| assert_equal(1, a)}; undef f
+ def f; yield(*[1]); end; f {|a| assert_equal(1, a)}; undef f
+ def f; yield(*[nil]); end; f {|a| assert_nil(a)}; undef f
+ def f; yield(*[[]]); end; f {|a| assert_equal([], a)}; undef f
+ def f; yield(*[*[1]]); end; f {|a| assert_equal(1, a)}; undef f
+
+ def f; yield; end; f {|*a| assert_equal([], a)}; undef f
+ def f; yield(nil); end; f {|*a| assert_equal([nil], a)}; undef f
+ def f; yield(1); end; f {|*a| assert_equal([1], a)}; undef f
+ def f; yield([]); end; f {|*a| assert_equal([[]], a)}; undef f
+ def f; yield([1]); end; f {|*a| assert_equal([[1]], a)}; undef f
+ def f; yield([nil]); end; f {|*a| assert_equal([[nil]], a)}; undef f
+ def f; yield([[]]); end; f {|*a| assert_equal([[[]]], a)}; undef f
+ def f; yield([1,2]); end; f {|*a| assert_equal([[1,2]], a)}; undef f
+ def f; yield([*[]]); end; f {|*a| assert_equal([[]], a)}; undef f
+ def f; yield([*[1]]); end; f {|*a| assert_equal([[1]], a)}; undef f
+ def f; yield([*[1,2]]); end; f {|*a| assert_equal([[1,2]], a)}; undef f
+
+ def f; yield(*nil); end; f {|*a| assert_equal([nil], a)}; undef f
+ def f; yield(*1); end; f {|*a| assert_equal([1], a)}; undef f
+ def f; yield(*[]); end; f {|*a| assert_equal([], a)}; undef f
+ def f; yield(*[1]); end; f {|*a| assert_equal([1], a)}; undef f
+ def f; yield(*[nil]); end; f {|*a| assert_equal([nil], a)}; undef f
+ def f; yield(*[[]]); end; f {|*a| assert_equal([[]], a)}; undef f
+ def f; yield(*[*[]]); end; f {|*a| assert_equal([], a)}; undef f
+ def f; yield(*[*[1]]); end; f {|*a| assert_equal([1], a)}; undef f
+ def f; yield(*[*[1,2]]); end; f {|*a| assert_equal([1,2], a)}; undef f
+
+ def f; yield; end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}; undef f
+ def f; yield(nil); end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}; undef f
+ def f; yield(1); end; f {|a,b,*c| assert_equal([1,nil,[]], [a,b,c])}; undef f
+ def f; yield([]); end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}; undef f
+ def f; yield([1]); end; f {|a,b,*c| assert_equal([1,nil,[]], [a,b,c])}; undef f
+ def f; yield([nil]); end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}; undef f
+ def f; yield([[]]); end; f {|a,b,*c| assert_equal([[],nil,[]], [a,b,c])}; undef f
+ def f; yield([*[]]); end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}; undef f
+ def f; yield([*[1]]); end; f {|a,b,*c| assert_equal([1,nil,[]], [a,b,c])}; undef f
+ def f; yield([*[1,2]]); end; f {|a,b,*c| assert_equal([1,2,[]], [a,b,c])}; undef f
+
+ def f; yield(*nil); end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}; undef f
+ def f; yield(*1); end; f {|a,b,*c| assert_equal([1,nil,[]], [a,b,c])}; undef f
+ def f; yield(*[]); end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}; undef f
+ def f; yield(*[1]); end; f {|a,b,*c| assert_equal([1,nil,[]], [a,b,c])}; undef f
+ def f; yield(*[nil]); end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}; undef f
+ def f; yield(*[[]]); end; f {|a,b,*c| assert_equal([[],nil,[]], [a,b,c])}; undef f
+ def f; yield(*[*[]]); end; f {|a,b,*c| assert_equal([nil,nil,[]], [a,b,c])}; undef f
+ def f; yield(*[*[1]]); end; f {|a,b,*c| assert_equal([1,nil,[]], [a,b,c])}; undef f
+ def f; yield(*[*[1,2]]); end; f {|a,b,*c| assert_equal([1,2,[]], [a,b,c])}; undef f
end
def test_return
- def r; return; end; a = r(); assert_nil(a)
- def r; return nil; end; a = r(); assert_nil(a)
- def r; return 1; end; a = r(); assert_equal(1, a)
- def r; return []; end; a = r(); assert_equal([], a)
- def r; return [1]; end; a = r(); assert_equal([1], a)
- def r; return [nil]; end; a = r(); assert_equal([nil], a)
- def r; return [[]]; end; a = r(); assert_equal([[]], a)
- def r; return [*[]]; end; a = r(); assert_equal([], a)
- def r; return [*[1]]; end; a = r(); assert_equal([1], a)
- def r; return [*[1,2]]; end; a = r(); assert_equal([1,2], a)
-
- def r; return *nil; end; a = r(); assert_nil(a)
- def r; return *1; end; a = r(); assert_equal(1, a)
- def r; return *[]; end; a = r(); assert_nil(a)
- def r; return *[1]; end; a = r(); assert_equal(1, a)
- def r; return *[nil]; end; a = r(); assert_nil(a)
- def r; return *[[]]; end; a = r(); assert_equal([], a)
- def r; return *[*[]]; end; a = r(); assert_nil(a)
- def r; return *[*[1]]; end; a = r(); assert_equal(1, a)
- def r; return *[*[1,2]]; end; a = r(); assert_equal([1,2], a)
-
- def r; return *nil; end; a = *r(); assert_nil(a)
- def r; return *1; end; a = *r(); assert_equal(1, a)
- def r; return *[]; end; a = *r(); assert_nil(a)
- def r; return *[1]; end; a = *r(); assert_equal(1, a)
- def r; return *[nil]; end; a = *r(); assert_nil(a)
- def r; return *[[]]; end; a = *r(); assert_nil(a)
- def r; return *[*[]]; end; a = *r(); assert_nil(a)
- def r; return *[*[1]]; end; a = *r(); assert_equal(1, a)
- def r; return *[*[1,2]]; end; a = *r(); assert_equal([1,2], a)
-
- def r; return; end; *a = r(); assert_equal([nil], a)
- def r; return nil; end; *a = r(); assert_equal([nil], a)
- def r; return 1; end; *a = r(); assert_equal([1], a)
- def r; return []; end; *a = r(); assert_equal([[]], a)
- def r; return [1]; end; *a = r(); assert_equal([[1]], a)
- def r; return [nil]; end; *a = r(); assert_equal([[nil]], a)
- def r; return [[]]; end; *a = r(); assert_equal([[[]]], a)
- def r; return [1,2]; end; *a = r(); assert_equal([[1,2]], a)
- def r; return [*[]]; end; *a = r(); assert_equal([[]], a)
- def r; return [*[1]]; end; *a = r(); assert_equal([[1]], a)
- def r; return [*[1,2]]; end; *a = r(); assert_equal([[1,2]], a)
-
- def r; return *nil; end; *a = r(); assert_equal([nil], a)
- def r; return *1; end; *a = r(); assert_equal([1], a)
- def r; return *[]; end; *a = r(); assert_equal([nil], a)
- def r; return *[1]; end; *a = r(); assert_equal([1], a)
- def r; return *[nil]; end; *a = r(); assert_equal([nil], a)
- def r; return *[[]]; end; *a = r(); assert_equal([[]], a)
- def r; return *[1,2]; end; *a = r(); assert_equal([[1,2]], a)
- def r; return *[*[]]; end; *a = r(); assert_equal([nil], a)
- def r; return *[*[1]]; end; *a = r(); assert_equal([1], a)
- def r; return *[*[1,2]]; end; *a = r(); assert_equal([[1,2]], a)
-
- def r; return *nil; end; *a = *r(); assert_equal([nil], a)
- def r; return *1; end; *a = *r(); assert_equal([1], a)
- def r; return *[]; end; *a = *r(); assert_equal([nil], a)
- def r; return *[1]; end; *a = *r(); assert_equal([1], a)
- def r; return *[nil]; end; *a = *r(); assert_equal([nil], a)
- def r; return *[[]]; end; *a = *r(); assert_equal([], a)
- def r; return *[1,2]; end; *a = *r(); assert_equal([1,2], a)
- def r; return *[*[]]; end; *a = *r(); assert_equal([nil], a)
- def r; return *[*[1]]; end; *a = *r(); assert_equal([1], a)
- def r; return *[*[1,2]]; end; *a = *r(); assert_equal([1,2], a)
-
- def r; return; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c])
- def r; return nil; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c])
- def r; return 1; end; a,b,*c = r(); assert_equal([1,nil,[]], [a,b,c])
- def r; return []; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c])
- def r; return [1]; end; a,b,*c = r(); assert_equal([1,nil,[]], [a,b,c])
- def r; return [nil]; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c])
- def r; return [[]]; end; a,b,*c = r(); assert_equal([[],nil,[]], [a,b,c])
- def r; return [1,2]; end; a,b,*c = r(); assert_equal([1,2,[]], [a,b,c])
- def r; return [*[]]; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c])
- def r; return [*[1]]; end; a,b,*c = r(); assert_equal([1,nil,[]], [a,b,c])
- def r; return [*[1,2]]; end; a,b,*c = r(); assert_equal([1,2,[]], [a,b,c])
-
- def r; return *nil; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c])
- def r; return *1; end; a,b,*c = r(); assert_equal([1,nil,[]], [a,b,c])
- def r; return *[]; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c])
- def r; return *[1]; end; a,b,*c = r(); assert_equal([1,nil,[]], [a,b,c])
- def r; return *[nil]; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c])
- def r; return *[[]]; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c])
- def r; return *[1,2]; end; a,b,*c = r(); assert_equal([1,2,[]], [a,b,c])
- def r; return *[*[]]; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c])
- def r; return *[*[1]]; end; a,b,*c = r(); assert_equal([1,nil,[]], [a,b,c])
- def r; return *[*[1,2]]; end; a,b,*c = r(); assert_equal([1,2,[]], [a,b,c])
+ def r; return; end; a = r(); assert_nil(a); undef r
+ def r; return nil; end; a = r(); assert_nil(a); undef r
+ def r; return 1; end; a = r(); assert_equal(1, a); undef r
+ def r; return []; end; a = r(); assert_equal([], a); undef r
+ def r; return [1]; end; a = r(); assert_equal([1], a); undef r
+ def r; return [nil]; end; a = r(); assert_equal([nil], a); undef r
+ def r; return [[]]; end; a = r(); assert_equal([[]], a); undef r
+ def r; return [*[]]; end; a = r(); assert_equal([], a); undef r
+ def r; return [*[1]]; end; a = r(); assert_equal([1], a); undef r
+ def r; return [*[1,2]]; end; a = r(); assert_equal([1,2], a); undef r
+
+ def r; return *nil; end; a = r(); assert_nil(a); undef r
+ def r; return *1; end; a = r(); assert_equal(1, a); undef r
+ def r; return *[]; end; a = r(); assert_nil(a); undef r
+ def r; return *[1]; end; a = r(); assert_equal(1, a); undef r
+ def r; return *[nil]; end; a = r(); assert_nil(a); undef r
+ def r; return *[[]]; end; a = r(); assert_equal([], a); undef r
+ def r; return *[*[]]; end; a = r(); assert_nil(a); undef r
+ def r; return *[*[1]]; end; a = r(); assert_equal(1, a); undef r
+ def r; return *[*[1,2]]; end; a = r(); assert_equal([1,2], a); undef r
+
+ def r; return *nil; end; a = *r(); assert_nil(a); undef r
+ def r; return *1; end; a = *r(); assert_equal(1, a); undef r
+ def r; return *[]; end; a = *r(); assert_nil(a); undef r
+ def r; return *[1]; end; a = *r(); assert_equal(1, a); undef r
+ def r; return *[nil]; end; a = *r(); assert_nil(a); undef r
+ def r; return *[[]]; end; a = *r(); assert_nil(a); undef r
+ def r; return *[*[]]; end; a = *r(); assert_nil(a); undef r
+ def r; return *[*[1]]; end; a = *r(); assert_equal(1, a); undef r
+ def r; return *[*[1,2]]; end; a = *r(); assert_equal([1,2], a); undef r
+
+ def r; return; end; *a = r(); assert_equal([nil], a); undef r
+ def r; return nil; end; *a = r(); assert_equal([nil], a); undef r
+ def r; return 1; end; *a = r(); assert_equal([1], a); undef r
+ def r; return []; end; *a = r(); assert_equal([[]], a); undef r
+ def r; return [1]; end; *a = r(); assert_equal([[1]], a); undef r
+ def r; return [nil]; end; *a = r(); assert_equal([[nil]], a); undef r
+ def r; return [[]]; end; *a = r(); assert_equal([[[]]], a); undef r
+ def r; return [1,2]; end; *a = r(); assert_equal([[1,2]], a); undef r
+ def r; return [*[]]; end; *a = r(); assert_equal([[]], a); undef r
+ def r; return [*[1]]; end; *a = r(); assert_equal([[1]], a); undef r
+ def r; return [*[1,2]]; end; *a = r(); assert_equal([[1,2]], a); undef r
+
+ def r; return *nil; end; *a = r(); assert_equal([nil], a); undef r
+ def r; return *1; end; *a = r(); assert_equal([1], a); undef r
+ def r; return *[]; end; *a = r(); assert_equal([nil], a); undef r
+ def r; return *[1]; end; *a = r(); assert_equal([1], a); undef r
+ def r; return *[nil]; end; *a = r(); assert_equal([nil], a); undef r
+ def r; return *[[]]; end; *a = r(); assert_equal([[]], a); undef r
+ def r; return *[1,2]; end; *a = r(); assert_equal([[1,2]], a); undef r
+ def r; return *[*[]]; end; *a = r(); assert_equal([nil], a); undef r
+ def r; return *[*[1]]; end; *a = r(); assert_equal([1], a); undef r
+ def r; return *[*[1,2]]; end; *a = r(); assert_equal([[1,2]], a); undef r
+
+ def r; return *nil; end; *a = *r(); assert_equal([nil], a); undef r
+ def r; return *1; end; *a = *r(); assert_equal([1], a); undef r
+ def r; return *[]; end; *a = *r(); assert_equal([nil], a); undef r
+ def r; return *[1]; end; *a = *r(); assert_equal([1], a); undef r
+ def r; return *[nil]; end; *a = *r(); assert_equal([nil], a); undef r
+ def r; return *[[]]; end; *a = *r(); assert_equal([], a); undef r
+ def r; return *[1,2]; end; *a = *r(); assert_equal([1,2], a); undef r
+ def r; return *[*[]]; end; *a = *r(); assert_equal([nil], a); undef r
+ def r; return *[*[1]]; end; *a = *r(); assert_equal([1], a); undef r
+ def r; return *[*[1,2]]; end; *a = *r(); assert_equal([1,2], a); undef r
+
+ def r; return; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c]); undef r
+ def r; return nil; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c]); undef r
+ def r; return 1; end; a,b,*c = r(); assert_equal([1,nil,[]], [a,b,c]); undef r
+ def r; return []; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c]); undef r
+ def r; return [1]; end; a,b,*c = r(); assert_equal([1,nil,[]], [a,b,c]); undef r
+ def r; return [nil]; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c]); undef r
+ def r; return [[]]; end; a,b,*c = r(); assert_equal([[],nil,[]], [a,b,c]); undef r
+ def r; return [1,2]; end; a,b,*c = r(); assert_equal([1,2,[]], [a,b,c]); undef r
+ def r; return [*[]]; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c]); undef r
+ def r; return [*[1]]; end; a,b,*c = r(); assert_equal([1,nil,[]], [a,b,c]); undef r
+ def r; return [*[1,2]]; end; a,b,*c = r(); assert_equal([1,2,[]], [a,b,c]); undef r
+
+ def r; return *nil; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c]); undef r
+ def r; return *1; end; a,b,*c = r(); assert_equal([1,nil,[]], [a,b,c]); undef r
+ def r; return *[]; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c]); undef r
+ def r; return *[1]; end; a,b,*c = r(); assert_equal([1,nil,[]], [a,b,c]); undef r
+ def r; return *[nil]; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c]); undef r
+ def r; return *[[]]; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c]); undef r
+ def r; return *[1,2]; end; a,b,*c = r(); assert_equal([1,2,[]], [a,b,c]); undef r
+ def r; return *[*[]]; end; a,b,*c = r(); assert_equal([nil,nil,[]], [a,b,c]); undef r
+ def r; return *[*[1]]; end; a,b,*c = r(); assert_equal([1,nil,[]], [a,b,c]); undef r
+ def r; return *[*[1,2]]; end; a,b,*c = r(); assert_equal([1,2,[]], [a,b,c]); undef r
end
def test_lambda
@@ -382,6 +382,7 @@ class TestAssignment < Test::Unit::TestCase
r(nil){next *[*[]]}
r(1){next *[*[1]]}
r([1,2]){next *[*[1,2]]}
+ undef r
def r(val); *a = yield(); assert_equal(val, a); end
r([nil]){next}
@@ -395,6 +396,7 @@ class TestAssignment < Test::Unit::TestCase
r([[]]){next [*[]]}
r([[1]]){next [*[1]]}
r([[1,2]]){next [*[1,2]]}
+ undef r
def r(val); *a = *yield(); assert_equal(val, a); end
r([nil]){next *nil}
@@ -407,6 +409,7 @@ class TestAssignment < Test::Unit::TestCase
r([nil]){next *[*[]]}
r([1]){next *[*[1]]}
r([1,2]){next *[*[1,2]]}
+ undef r
def r(val); a,b,*c = yield(); assert_equal(val, [a,b,c]); end
r([nil,nil,[]]){next}
@@ -420,6 +423,7 @@ class TestAssignment < Test::Unit::TestCase
r([nil,nil,[]]){next [*[]]}
r([1,nil,[]]){next [*[1]]}
r([1,2,[]]){next [*[1,2]]}
+ undef r
def r(val); a,b,*c = *yield(); assert_equal(val, [a,b,c]); end
r([nil,nil,[]]){next *nil}
@@ -432,6 +436,7 @@ class TestAssignment < Test::Unit::TestCase
r([nil,nil,[]]){next *[*[]]}
r([1,nil,[]]){next *[*[1]]}
r([1,2,[]]){next *[*[1,2]]}
+ undef r
end
def test_assign2