diff --git a/personal-recipes b/personal-recipes
deleted file mode 120000
index be6fc33..0000000
--- a/personal-recipes
+++ /dev/null
@@ -1 +0,0 @@
-/work/personal/roux/personal-recipes
\ No newline at end of file
diff --git a/test-parse.hs b/test-parse.hs
deleted file mode 100644
index 0862595..0000000
--- a/test-parse.hs
+++ /dev/null
@@ -1,27 +0,0 @@
-module Main where
-
-import System.Directory (listDirectory)
-import System.FilePath (takeExtension)
-import qualified Data.Text as T
-import qualified Data.Text.IO as TIO
-import Roux.Parser (parseCookFile)
-
-main :: IO ()
-main = do
-    entries <- listDirectory "/work/personal-recipes"
-    let cookFiles = filter ((== ".cook") . takeExtension) (map ("/work/personal-recipes/" ++) entries)
-    results <- mapM testParse cookFiles
-    let failures = [(name, err) | Right (name, err) <- results]
-        successes = length [() | Left name <- results]
-    putStrLn $ "\n=== Summary ==="
-    putStrLn $ "Total: " ++ show (length results)
-    putStrLn $ "OK: " ++ show successes
-    putStrLn $ "Failures: " ++ show (length failures)
-    mapM_ (\(name, err) -> putStrLn $ "\n  " ++ name ++ ":\n    " ++ err) failures
-  where
-    testParse fp = do
-        let name = reverse . takeWhile (/= '/') . reverse $ fp
-        content <- TIO.readFile fp
-        case parseCookFile content of
-            Left err -> pure (Right (name, err))
-            Right _ -> pure (Left name)