[Jifty-commit] r5444 - in Runops-Trace/trunk: .

[Jifty commits]

Author: nothingmuch
Date: Sat May 10 12:57:27 2008
New Revision: 5444

Modified:
   Runops-Trace/trunk/Trace.xs
   Runops-Trace/trunk/t/01compile.t

Log:
FUCKING CONSTANTS YOU GO TO HELL AND YOU DIE

Modified: Runops-Trace/trunk/Trace.xs
==============================================================================
--- Runops-Trace/trunk/Trace.xs	(original)
+++ Runops-Trace/trunk/Trace.xs	Sat May 10 12:57:27 2008
@@ -582,3 +582,79 @@
 {
   Runops_Trace_clear_op_mask();
 }
+
+int
+ARITY_NULL ()
+  PROTOTYPE:
+  CODE:
+{
+  RETVAL = ARITY_NULL;
+}
+  OUTPUT:
+    RETVAL
+
+int
+ARITY_UNARY ()
+  PROTOTYPE:
+  CODE:
+{
+  RETVAL = ARITY_UNARY;
+}
+  OUTPUT:
+    RETVAL
+
+int
+ARITY_BINARY ()
+  PROTOTYPE:
+  CODE:
+{
+  RETVAL = ARITY_BINARY;
+}
+  OUTPUT:
+    RETVAL
+
+
+int
+ARITY_LIST ()
+  PROTOTYPE:
+  CODE:
+{
+  RETVAL = ARITY_LIST;
+}
+  OUTPUT:
+    RETVAL
+
+
+int
+ARITY_LIST_BINARY ()
+  PROTOTYPE:
+  CODE:
+{
+  RETVAL = ARITY_LIST_BINARY;
+}
+  OUTPUT:
+    RETVAL
+
+
+int
+ARITY_LIST_UNARY ()
+  PROTOTYPE:
+  CODE:
+{
+  RETVAL = ARITY_LIST_UNARY;
+}
+  OUTPUT:
+    RETVAL
+
+
+int
+ARITY_UNKNOWN ()
+  PROTOTYPE:
+  CODE:
+{
+  RETVAL = ARITY_UNKNOWN;
+}
+  OUTPUT:
+    RETVAL
+
+

Modified: Runops-Trace/trunk/t/01compile.t
==============================================================================
--- Runops-Trace/trunk/t/01compile.t	(original)
+++ Runops-Trace/trunk/t/01compile.t	Sat May 10 12:57:27 2008
@@ -1,6 +1,6 @@
 #!perl
 
-use Test::More tests => 4;
+use Test::More tests => 5;
 
 use_ok('Runops::Trace');
 Runops::Trace::enable_tracing();
@@ -8,3 +8,5 @@
 pass('and it continues to work');
 eval  { pass('... in eval {}') };
 eval q{ pass('... in eval STRING') };
+
+is( Runops::Trace::ARITY_BINARY(), 2, "constant" );