Import LinuxCNC source tree

tests/remap/fail/prolog/README

@@ -0,0 +1,3 @@
+Exercise failed prolog for a remap NGC procedure
+
+must properly return to top level, convey error text

tests/remap/fail/prolog/expected

@@ -0,0 +1,20 @@
+executing
+    1 N..... USE_LENGTH_UNITS(CANON_UNITS_MM)
+    2 N..... SET_G5X_OFFSET(1, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000)
+    3 N..... SET_G92_OFFSET(0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000)
+    4 N..... SET_XY_ROTATION(0.0000)
+    5 N..... SET_FEED_REFERENCE(CANON_XYZ)
+    6 N..... ON_RESET()
+    7 N..... MESSAGE(" before M400: call_level= 0.000000 remap_level=0.000000")
+    8 N..... MESSAGE("failingprolog returning INTERP_ERROR")
+A failed Python prolog returning INTERP_ERROR
+O <notcalled> call 
+    9 N..... MESSAGE(" after failed M400: call_level= 0.000000 remap_level=0.000000")
+   10 N..... SET_G5X_OFFSET(1, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000)
+   11 N..... SET_XY_ROTATION(0.0000)
+   12 N..... SET_FEED_MODE(0, 0)
+   13 N..... SET_FEED_RATE(0.0000)
+   14 N..... STOP_SPINDLE_TURNING(0)
+   15 N..... SET_SPINDLE_MODE(0 0.0000)
+   16 N..... PROGRAM_END()
+   17 N..... ON_RESET()

tests/remap/fail/prolog/remap.py

@@ -0,0 +1,26 @@
+#   This is a component of LinuxCNC
+#   Copyright 2011 Michael Haberler <git@mah.priv.at>
+#
+#   This program is free software; you can redistribute it and/or modify
+#   it under the terms of the GNU General Public License as published by
+#   the Free Software Foundation; either version 2 of the License, or
+#   (at your option) any later version.
+#
+#   This program is distributed in the hope that it will be useful,
+#   but WITHOUT ANY WARRANTY; without even the implied warranty of
+#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#   GNU General Public License for more details.
+#
+#   You should have received a copy of the GNU General Public License
+#   along with this program; if not, write to the Free Software
+#   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+import emccanon
+import interpreter
+
+def failingprolog(self,*args, **words):
+    emccanon.MESSAGE("failingprolog returning INTERP_ERROR")
+    self.set_errormsg("A failed Python prolog returning INTERP_ERROR")
+    return interpreter.INTERP_ERROR
+
+

tests/remap/fail/prolog/subs.py

@@ -0,0 +1,18 @@
+#   This is a component of LinuxCNC
+#   Copyright 2011 Michael Haberler <git@mah.priv.at>
+#
+#   This program is free software; you can redistribute it and/or modify
+#   it under the terms of the GNU General Public License as published by
+#   the Free Software Foundation; either version 2 of the License, or
+#   (at your option) any later version.
+#
+#   This program is distributed in the hope that it will be useful,
+#   but WITHOUT ANY WARRANTY; without even the implied warranty of
+#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#   GNU General Public License for more details.
+#
+#   You should have received a copy of the GNU General Public License
+#   along with this program; if not, write to the Free Software
+#   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+import remap

tests/remap/fail/prolog/test.ini

@@ -0,0 +1,15 @@
+[EMC]
+DEBUG=0
+LOG_LEVEL=0
+
+[RS274NGC]
+SUBROUTINE_PATH = .
+
+REMAP=M400  modalgroup=5  prolog=failingprolog ngc=notcalled
+
+[PYTHON]
+PATH_PREPEND=.
+TOPLEVEL=subs.py
+
+
+

tests/remap/fail/prolog/test.ngc

@@ -0,0 +1,4 @@
+(debug, before M400: call_level= #<_call_level> remap_level=#<_remap_level>)
+M400
+(debug, after failed M400: call_level= #<_call_level> remap_level=#<_remap_level>)
+M2

tests/remap/fail/prolog/test.sh

@@ -0,0 +1,5 @@
+#!/bin/bash
+export PYTHONUNBUFFERED=1
+rs274  -i test.ini -n 0 -g test.ngc 2>&1
+# expected to fail
+exit 0