From 19fa9d42c9b8d41ba1d61611850bcf8129ea5263 Mon Sep 17 00:00:00 2001 From: colomon Date: Fri, 28 May 2010 03:45:42 +0000 Subject: [PATCH] [t/spec] Add two obvious tests we were missing before. git-svn-id: http://svn.pugscode.org/pugs@30881 c213334d-75ef-0310-aa23-eaa082d1ae64 --- t/spec/S03-metaops/reverse.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/t/spec/S03-metaops/reverse.t b/t/spec/S03-metaops/reverse.t index e220c2d19..ac90183e8 100644 --- a/t/spec/S03-metaops/reverse.t +++ b/t/spec/S03-metaops/reverse.t @@ -28,6 +28,8 @@ isa_ok 4.3i Rcmp 5.Num, (5.Num cmp 4.3i).WHAT, "4.3i Rcmp 5.Num is the same type is 4 R+ 5, 5 + 4, "4 R+ 5"; isa_ok 4 R+ 5, (5 + 4).WHAT, "4 R+ 5 is the same type as 5 + 4"; +is 4 R- 5, 5 - 4, "4 R- 5"; +isa_ok 4 R- 5, (5 - 4).WHAT, "4 R- 5 is the same type as 5 - 4"; is 4 R* 5, 5 * 4, "4 R* 5"; isa_ok 4 R* 5, (5 * 4).WHAT, "4 R* 5 is the same type as 5 * 4"; is 4 R/ 5, 5 / 4, "4 R/ 5"; @@ -52,7 +54,7 @@ isa_ok 4 Rcmp 5, (5 cmp 4).WHAT, "4 Rcmp 5 is the same type as 5 cmp 4"; # precedence tests! -is 3 R/ 9 + 5, 8, '$/ gets precedence of /'; +is 3 R/ 9 + 5, 8, 'R/ gets precedence of /'; is 4 R- 5 R/ 10, -2, "Rop gets the precedence of op"; is (10 R... 1, 3), (1, 3, 5, 7, 9), "Rop gets list_infix precedence correctly"; -- 2.11.4.GIT