From c5f4109db2a64c00feda27db64aeb095045216f2 Mon Sep 17 00:00:00 2001
From: unobe <unobe@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Wed, 17 Mar 2010 17:43:03 +0000
Subject: [PATCH] [t/spec] Add !eq tests to S03-operators/equality.t

git-svn-id: http://svn.pugscode.org/pugs@30118 c213334d-75ef-0310-aa23-eaa082d1ae64
---
 S03-operators/equality.t | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/S03-operators/equality.t b/S03-operators/equality.t
index 805c792a4d..3a9c486486 100644
--- a/S03-operators/equality.t
+++ b/S03-operators/equality.t
@@ -39,8 +39,12 @@ ok(2 == 2,         "== true");
 ok(!(2 == 3),      "== false");
 ok(2 != 3,         "!= true");
 ok(!(2 != 2),      "!= false");
+
+#L<S03/Negated relational operators>
 ok(2 !== 3,         "!== true");
 ok(!(2 !== 2),      "!== false");
+ok($foo !eq "f",    "!eq true");
+ok(!($foo !eq ""),  "!eq false");
 
 # numeric context on undefined values
 #?rakudo skip "+Any doesn't work yet"