From 0c2d74020a925fa86235ae7c716aa0ede856e6e6 Mon Sep 17 00:00:00 2001 From: Daniel Bovensiepen Date: Sun, 3 Jun 2012 23:31:53 +0800 Subject: Add more superclass tests --- test/t/struct.rb | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'test/t/struct.rb') diff --git a/test/t/struct.rb b/test/t/struct.rb index c41319f8a..798cf6728 100644 --- a/test/t/struct.rb +++ b/test/t/struct.rb @@ -4,3 +4,8 @@ assert('Struct', '15.2.18') do Struct.class == Class end + +assert('Struct superclass', '15.2.18.2') do + Struct.superclass == Object +end + -- cgit v1.2.3 From f88a8399149f9b949f31f960d56d486a423efefa Mon Sep 17 00:00:00 2001 From: Yukihiro Matsumoto Date: Mon, 18 Jun 2012 09:09:00 +0900 Subject: add Struct tests --- test/t/struct.rb | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 50 insertions(+) (limited to 'test/t/struct.rb') diff --git a/test/t/struct.rb b/test/t/struct.rb index 798cf6728..5a74c6205 100644 --- a/test/t/struct.rb +++ b/test/t/struct.rb @@ -9,3 +9,53 @@ assert('Struct superclass', '15.2.18.2') do Struct.superclass == Object end +assert('Struct.new', '15.2.18.3.1') do + c = Struct.new(:m1, :m2) + c.superclass == Struct and + c.members == [:m1,:m2] +end + +assert('Struct#[]', '15.2.18.4.2') do + c = Struct.new(:m1, :m2) + cc = c.new(1,2) + cc[:m1] == 1 and cc["m2"] == 2 +end + +assert('Struct#[]=', '15.2.18.4.3') do + c = Struct.new(:m1, :m2) + cc = c.new(1,2) + cc[:m1] = 3 + cc[:m1] == 3 +end + +assert('Struct#each', '15.2.18.4.4') do + c = Struct.new(:m1, :m2) + cc = c.new(1,2) + a = [] + cc.each{|x| + a << x + } + a[0] == 1 and a[1] == 2 +end + +assert('Struct#each_pair', '15.2.18.4.5') do + c = Struct.new(:m1, :m2) + cc = c.new(1,2) + a = [] + cc.each_pair{|k,v| + a << [k,v] + } + a[0] == [:m1, 1] and a[1] == [:m2, 2] +end + +assert('Struct#members', '15.2.18.4.6') do + c = Struct.new(:m1, :m2) + cc = c.new(1,2) + cc.members == [:m1,:m2] +end + +assert('Struct#select', '15.2.18.4.7') do + c = Struct.new(:m1, :m2) + cc = c.new(1,2) + cc.select{|v| v % 2 == 0} == [2] +end -- cgit v1.2.3 From d88a37c1c9175a1583b02596ece978a51a64f9e0 Mon Sep 17 00:00:00 2001 From: Daniel Bovensiepen Date: Thu, 21 Jun 2012 14:23:21 +0800 Subject: Skip struct test in case that Struct isn't implemented --- test/t/struct.rb | 101 ++++++++++++++++++++++++++++--------------------------- 1 file changed, 52 insertions(+), 49 deletions(-) (limited to 'test/t/struct.rb') diff --git a/test/t/struct.rb b/test/t/struct.rb index 5a74c6205..5e86c70bf 100644 --- a/test/t/struct.rb +++ b/test/t/struct.rb @@ -1,61 +1,64 @@ ## # Struct ISO Test -assert('Struct', '15.2.18') do - Struct.class == Class -end +if StructEnabled + assert('Struct', '15.2.18') do + Struct.class == Class + end -assert('Struct superclass', '15.2.18.2') do - Struct.superclass == Object -end + assert('Struct superclass', '15.2.18.2') do + Struct.superclass == Object + end -assert('Struct.new', '15.2.18.3.1') do - c = Struct.new(:m1, :m2) - c.superclass == Struct and - c.members == [:m1,:m2] -end + assert('Struct.new', '15.2.18.3.1') do + c = Struct.new(:m1, :m2) + c.superclass == Struct and + c.members == [:m1,:m2] + end -assert('Struct#[]', '15.2.18.4.2') do - c = Struct.new(:m1, :m2) - cc = c.new(1,2) - cc[:m1] == 1 and cc["m2"] == 2 -end + assert('Struct#[]', '15.2.18.4.2') do + c = Struct.new(:m1, :m2) + cc = c.new(1,2) + cc[:m1] == 1 and cc["m2"] == 2 + end -assert('Struct#[]=', '15.2.18.4.3') do - c = Struct.new(:m1, :m2) - cc = c.new(1,2) - cc[:m1] = 3 - cc[:m1] == 3 -end + assert('Struct#[]=', '15.2.18.4.3') do + c = Struct.new(:m1, :m2) + cc = c.new(1,2) + cc[:m1] = 3 + cc[:m1] == 3 + end -assert('Struct#each', '15.2.18.4.4') do - c = Struct.new(:m1, :m2) - cc = c.new(1,2) - a = [] - cc.each{|x| - a << x - } - a[0] == 1 and a[1] == 2 -end + assert('Struct#each', '15.2.18.4.4') do + c = Struct.new(:m1, :m2) + cc = c.new(1,2) + a = [] + cc.each{|x| + a << x + } + a[0] == 1 and a[1] == 2 + end -assert('Struct#each_pair', '15.2.18.4.5') do - c = Struct.new(:m1, :m2) - cc = c.new(1,2) - a = [] - cc.each_pair{|k,v| - a << [k,v] - } - a[0] == [:m1, 1] and a[1] == [:m2, 2] -end + assert('Struct#each_pair', '15.2.18.4.5') do + c = Struct.new(:m1, :m2) + cc = c.new(1,2) + a = [] + cc.each_pair{|k,v| + a << [k,v] + } + a[0] == [:m1, 1] and a[1] == [:m2, 2] + end -assert('Struct#members', '15.2.18.4.6') do - c = Struct.new(:m1, :m2) - cc = c.new(1,2) - cc.members == [:m1,:m2] -end + assert('Struct#members', '15.2.18.4.6') do + c = Struct.new(:m1, :m2) + cc = c.new(1,2) + cc.members == [:m1,:m2] + end -assert('Struct#select', '15.2.18.4.7') do - c = Struct.new(:m1, :m2) - cc = c.new(1,2) - cc.select{|v| v % 2 == 0} == [2] + assert('Struct#select', '15.2.18.4.7') do + c = Struct.new(:m1, :m2) + cc = c.new(1,2) + cc.select{|v| v % 2 == 0} == [2] + end end + -- cgit v1.2.3 From 7a410123dd1ad93359d07134bbac39a34b184cb4 Mon Sep 17 00:00:00 2001 From: Daniel Bovensiepen Date: Thu, 21 Jun 2012 15:02:08 +0800 Subject: only execute struct tests if struct feature is activated --- test/t/struct.rb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'test/t/struct.rb') diff --git a/test/t/struct.rb b/test/t/struct.rb index 5e86c70bf..fff02ee56 100644 --- a/test/t/struct.rb +++ b/test/t/struct.rb @@ -1,7 +1,7 @@ ## # Struct ISO Test -if StructEnabled +if Object.const_defined?(:Struct) assert('Struct', '15.2.18') do Struct.class == Class end -- cgit v1.2.3 From a194f30f62d5d746e133c1c7a784b6eb3b5b7cb0 Mon Sep 17 00:00:00 2001 From: Masamitsu MURASE Date: Sun, 24 Jun 2012 04:03:46 +0900 Subject: Add test for Struct#==. --- test/t/struct.rb | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'test/t/struct.rb') diff --git a/test/t/struct.rb b/test/t/struct.rb index fff02ee56..5cf6929b8 100644 --- a/test/t/struct.rb +++ b/test/t/struct.rb @@ -16,6 +16,13 @@ if Object.const_defined?(:Struct) c.members == [:m1,:m2] end + assert('Struct#==', '15.2.18.4.1') do + c = Struct.new(:m1, :m2) + cc1 = c.new(1,2) + cc2 = c.new(1,2) + cc1 == cc2 + end + assert('Struct#[]', '15.2.18.4.2') do c = Struct.new(:m1, :m2) cc = c.new(1,2) -- cgit v1.2.3