diff options
Diffstat (limited to 'test/TestSundqvist.hs')
-rw-r--r-- | test/TestSundqvist.hs | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/test/TestSundqvist.hs b/test/TestSundqvist.hs new file mode 100644 index 0000000..bfcad6b --- /dev/null +++ b/test/TestSundqvist.hs | |||
@@ -0,0 +1,21 @@ | |||
1 | module TestSundqvist where | ||
2 | |||
3 | |||
4 | import Graphics.WaveFront | ||
5 | import Graphics.WaveFront.Load as Load | ||
6 | import System.Directory | ||
7 | import System.IO | ||
8 | |||
9 | getDataDir :: IO FilePath | ||
10 | getDataDir = do | ||
11 | let tryDir d fallback = do | ||
12 | found <- doesDirectoryExist d | ||
13 | if found then return d else fallback | ||
14 | tryDir "./test-data" $ tryDir "../test-data" (return ".") | ||
15 | |||
16 | main = do | ||
17 | ddir <- getDataDir | ||
18 | r1 <- Load.obj (ddir ++ "/01.obj") | ||
19 | print r1 | ||
20 | -- Failed: endOfInput | ||
21 | -- Reason: vt has 3 components instead of 2. | ||