From ee147523b1df2e036c49addf6e2fd3bb485d5b2e Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Sun, 30 Dec 2012 11:11:42 +0100
Subject: [PATCH] test X::Syntax::NonAssociative

---
 S32-exceptions/misc.t | 1 +
 1 file changed, 1 insertion(+)

diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
index 00b06615b8..e96b785168 100644
--- a/S32-exceptions/misc.t
+++ b/S32-exceptions/misc.t
@@ -191,6 +191,7 @@ throws_like 'sub foo;', X::Syntax::Missing, what => 'block';
 throws_like 'my $d; my class A {method x { $d }}; for () { sub }', X::Syntax::Missing, what => 'block';
 throws_like 'constant foo;', X::Syntax::Missing, what => /initializer/;
 throws_like 'constant * = 3;', X::Syntax::Missing, what => /constant/;
+throws_like '1 <=> 2 <=> 3', X::Syntax::NonAssociative, left => '<=>', right => '<=>';
 
 throws_like 'class A {...}; grammar B { ... }', X::Package::Stubbed, packages => <A B>;