From c3818897a5d1603c27f5a27e8f4c10f0d401e8b8 Mon Sep 17 00:00:00 2001 From: mmatera Date: Wed, 28 Apr 2021 07:21:46 -0300 Subject: [PATCH 1/2] test $InputFileName in recursive get --- test/test_files.py | 27 +++++++++++++++++++++------ 1 file changed, 21 insertions(+), 6 deletions(-) diff --git a/test/test_files.py b/test/test_files.py index 7c79e96911..5f194412d5 100644 --- a/test/test_files.py +++ b/test/test_files.py @@ -11,18 +11,33 @@ evaluation = Evaluation(definitions=definitions, catch_interrupt=False) - - def _evaluate(str_expression): expr = parse(definitions, MathicsSingleLineFeeder(str_expression)) return expr.evaluate(evaluation) def test_put_and_get_and_InputFileName(): - check_evaluation('Put[HoldForm[$InputFileName], $TemporaryDirectory<>"/getme.m"]', 'Null') - check_evaluation('Get[$TemporaryDirectory<>"/getme.m"]', '$TemporaryDirectory<>"/getme.m"') - - + check_evaluation( + 'Put[HoldForm[$InputFileName], $TemporaryDirectory<>"/getme.m"]', "Null" + ) + check_evaluation( + 'Get[$TemporaryDirectory<>"/getme.m"]', '$TemporaryDirectory<>"/getme.m"' + ) + + +def test_put_and_get_and_InputFileName_recursive(): + check_evaluation( + 'Put[HoldForm[$InputFileName], $TemporaryDirectory<>"/getmeA.m"]', "Null" + ) + check_evaluation( + 'stream=OpenWrite[$TemporaryDirectory<>"/getmeB.m"];' + 'cmd="Get[\\"" <> $TemporaryDirectory<>"/getmeA.m"<>"\\"]";' + "Write[stream,cmd];Close[stream]", + '"/tmp/getmeB.m"', + ) + check_evaluation( + 'Get[$TemporaryDirectory<>"/getmeB.m"]', '$TemporaryDirectory<>"/getmeA.m"' + ) def test_compress(): From 0a56af9b4a4d4c260420970e4b6137c8ccac80e3 Mon Sep 17 00:00:00 2001 From: mmatera Date: Wed, 28 Apr 2021 07:35:42 -0300 Subject: [PATCH 2/2] fix --- test/test_files.py | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/test_files.py b/test/test_files.py index 5f194412d5..2c7cb690b9 100644 --- a/test/test_files.py +++ b/test/test_files.py @@ -33,7 +33,7 @@ def test_put_and_get_and_InputFileName_recursive(): 'stream=OpenWrite[$TemporaryDirectory<>"/getmeB.m"];' 'cmd="Get[\\"" <> $TemporaryDirectory<>"/getmeA.m"<>"\\"]";' "Write[stream,cmd];Close[stream]", - '"/tmp/getmeB.m"', + '$TemporaryDirectory<>"/getmeB.m"', ) check_evaluation( 'Get[$TemporaryDirectory<>"/getmeB.m"]', '$TemporaryDirectory<>"/getmeA.m"'