Rename Sub::Op::Test to Sub::Op::LexicalSub

[perl/modules/Sub-Op.git] / t / Sub-Op-LexicalSub / LexicalSub.xs

diff --git a/t/Sub-Op-Test/Test.xs b/t/Sub-Op-LexicalSub/LexicalSub.xs
similarity index 68%
rename from t/Sub-Op-Test/Test.xs
rename to t/Sub-Op-LexicalSub/LexicalSub.xs
index 4a7b97028bc17c844a2ee28157bc75c40f7018df..e67d5baa33d02e4711484180ed6b13fbb4e0905a 100644 (file)
--- a/t/Sub-Op-Test/Test.xs
+++ b/t/Sub-Op-LexicalSub/LexicalSub.xs
@@ -6,23 +6,23 @@
 #include "perl.h"
 #include "XSUB.h"
 
-#define __PACKAGE__     "Sub::Op::Test"
+#define __PACKAGE__     "Sub::Op::LexicalSub"
 #define __PACKAGE_LEN__ (sizeof(__PACKAGE__)-1)
 
 #include "sub_op.h"
 
-STATIC HV *sub_op_test_map = NULL;
+STATIC HV *sols_map = NULL;
 
-STATIC OP *sub_op_test_check(pTHX_ OP *o, void *ud_) {
+STATIC OP *sols_check(pTHX_ OP *o, void *ud_) {
  char buf[sizeof(void*)*2+1];
  SV *cb = ud_;
 
- (void) hv_store(sub_op_test_map, buf, sprintf(buf, "%"UVxf, PTR2UV(o)), cb, 0);
+ (void) hv_store(sols_map, buf, sprintf(buf, "%"UVxf, PTR2UV(o)), cb, 0);
 
  return o;
 }
 
-STATIC OP *sub_op_test_pp(pTHX) {
+STATIC OP *sols_pp(pTHX) {
  dSP;
  dMARK;
  SV *cb;
@@ -31,7 +31,7 @@ STATIC OP *sub_op_test_pp(pTHX) {
  {
   char buf[sizeof(void*)*2+1];
   SV **svp;
-  svp = hv_fetch(sub_op_test_map, buf, sprintf(buf, "%"UVxf, PTR2UV(PL_op)), 0);
+  svp = hv_fetch(sols_map, buf, sprintf(buf, "%"UVxf, PTR2UV(PL_op)), 0);
   if (!svp)
    RETURN;
   cb = *svp;
@@ -57,13 +57,13 @@ STATIC OP *sub_op_test_pp(pTHX) {
 
 /* --- XS ------------------------------------------------------------------ */
 
-MODULE = Sub::Op::Test      PACKAGE = Sub::Op::Test
+MODULE = Sub::Op::LexicalSub      PACKAGE = Sub::Op::LexicalSub
 
 PROTOTYPES: ENABLE
 
 BOOT:
 {
- sub_op_test_map = newHV();
+ sols_map = newHV();
 }
 
 void
@@ -76,9 +76,9 @@ PPCODE:
   cb = SvRV(cb);
   if (SvTYPE(cb) >= SVt_PVCV) {
    c.name  = SvPV_const(name, c.len);
-   c.check = sub_op_test_check;
+   c.check = sols_check;
    c.ud    = SvREFCNT_inc(cb);
-   c.pp    = sub_op_test_pp;
+   c.pp    = sols_pp;
    sub_op_register(aTHX_ &c);
   }
  }