-
Notifications
You must be signed in to change notification settings - Fork 64
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
[GR-19346] Backport: hotfix FastR working.dir vs java user.dir issues.
PullRequest: fastr/2223
- Loading branch information
Showing
7 changed files
with
239 additions
and
46 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
93 changes: 93 additions & 0 deletions
93
com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_setwd.java
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,93 @@ | ||
| /* | ||
| * Copyright (c) 2016, 2019, Oracle and/or its affiliates. All rights reserved. | ||
| * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. | ||
| * | ||
| * This code is free software; you can redistribute it and/or modify it | ||
| * under the terms of the GNU General Public License version 3 only, as | ||
| * published by the Free Software Foundation. | ||
| * | ||
| * This code 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 | ||
| * version 3 for more details (a copy is included in the LICENSE file that | ||
| * accompanied this code). | ||
| * | ||
| * You should have received a copy of the GNU General Public License version | ||
| * 3 along with this work; if not, write to the Free Software Foundation, | ||
| * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. | ||
| * | ||
| * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA | ||
| * or visit www.oracle.com if you need additional information or have any | ||
| * questions. | ||
| */ | ||
|
|
||
| package com.oracle.truffle.r.test.builtins; | ||
|
|
||
| import com.oracle.truffle.r.runtime.Utils; | ||
| import org.junit.Test; | ||
|
|
||
| import com.oracle.truffle.r.test.TestBase; | ||
| import java.io.File; | ||
| import java.io.IOException; | ||
| import org.junit.After; | ||
| import static org.junit.Assert.assertTrue; | ||
|
|
||
| public class TestBuiltin_setwd extends TestBase { | ||
|
|
||
| @After | ||
| public void resetWD() { | ||
| Utils.resetWD(); | ||
| } | ||
|
|
||
| private static final String testWDDir = "com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/data/"; | ||
|
|
||
| @Test | ||
| public void testSetWDvsUserDir() throws IOException { | ||
| String wd = gewtWD(); | ||
|
|
||
| // 1.) current java user.dir is {fastr_home} and it contains a file README.md | ||
| assertTrue("no README.md file in the {fastr_home}, try to use some another file for this test then.", new File(wd + "README.md").exists()); | ||
| // 2.) lets create a test folder containg a directory with the same name - README.md | ||
| new File(wd + "com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/data/README.md").mkdirs(); | ||
| File testFile = new File(wd + "com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/data/README.md/test"); | ||
| if (!testFile.exists()) { | ||
| testFile.createNewFile(); | ||
| } | ||
| // 3.) and setwd to {testdir} and try to access that README.md/test | ||
| assertEval("setwd('" + wd + testWDDir + "'); .Call(tools:::C_Rmd5, 'README.md/test'); setwd('" + wd + "')"); | ||
|
|
||
| // 1.) current java user.dir is {fastr_home} and it contains a dir 'bin' containig a file R | ||
| assertTrue("no bin/R file in the {fastr_home}, try ot use some another file for this test then.", new File(wd + "bin/R").exists()); | ||
| // 2.) lets create a test folder containg a path 'bin/R/test'; | ||
| // note that {fastr_home}/bin/R points to a file, while {testdir}/bin/R is a directory | ||
| new File(wd + "com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/data/bin/R").mkdirs(); | ||
| testFile = new File(wd + "com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/data/bin/R/test"); | ||
| if (!testFile.exists()) { | ||
| testFile.createNewFile(); | ||
| } | ||
| // 3.) and setwd to {testdir} and try to access that bin/R/test | ||
| assertEval("setwd('" + wd + testWDDir + "'); .Call(tools:::C_Rmd5, 'bin/R/test'); setwd('" + wd + "')"); | ||
| } | ||
|
|
||
| private static String dirPathWD = "com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/simple/data"; | ||
|
|
||
| @Test | ||
| public void testSetWD() { | ||
| String wd = gewtWD(); | ||
|
|
||
| assertEval("{ setwd(); getwd(); }"); | ||
| assertEval("{ setwd(''); getwd(); }"); | ||
|
|
||
| assertEval(Ignored.ImplementationError, "{ setwd('" + wd + dirPathWD + "'); setwd(''); getwd(); setwd('" + wd + "') }"); | ||
|
|
||
| assertEval("{ setwd('" + wd + dirPathWD + "'); getwd(); setwd('" + wd + "') }"); | ||
| assertEval("{ setwd('" + wd + dirPathWD + "'); setwd('tree1'); getwd(); setwd('" + wd + "') }"); | ||
| assertEval("{ setwd('" + wd + dirPathWD + "'); setwd('does-not-exist'); getwd(); setwd('" + wd + "') }"); | ||
| assertEval("{ setwd('" + wd + dirPathWD + "/tree1/..'); getwd(); setwd('" + wd + "') }"); | ||
| } | ||
|
|
||
| private static String gewtWD() { | ||
| return System.getProperty("user.dir") + "/"; | ||
| } | ||
|
|
||
| } |