module TestSabadie where

import Codec.Wavefront
import System.Directory
import System.IO

getDataDir :: IO FilePath
getDataDir = do
    let tryDir d fallback = do
            found <- doesDirectoryExist d
            if found then return d else fallback
    tryDir "./test-data" $ tryDir "../test-data" (return ".")

main = do
    ddir <- getDataDir
    r1 <- fromFile (ddir ++ "/01.obj")
    print r1
    -- Failed: `    vp    ` [...]: Failed reading: empty
    -- Reason: blank lines