scriptDir=`dirname $0`

DUNE_BIN_DIR=`cd "$scriptDir/../_build/install/default/bin"; pwd -P`

function exp {

echo "$(dirname $1)/expected/$(basename $1).txt"

}

taskCount=0

function maybeWait {

}

pushd tests

legacyJsReferences=$(find syntax_tests/data syntax_benchmarks/data \( -name "*.res" -o -name "*.resi" \) -exec grep -nHE '(^|[^[:alnum:]_])Js\.' {} + || true)

if [[ $legacyJsReferences != "" ]]; then

printf "Legacy Js. references remain in syntax fixtures:\n%s\n" "$legacyJsReferences"

exit 1

rm -rf temp

mkdir temp

find syntax_tests/data/parsing/{errors,infiniteLoops,recovery} -name "*.res" -o -name "*.resi" >temp/files.txt

while read file; do

$DUNE_BIN_DIR/res_parser -recover -print ml $file &> $(exp $file) & maybeWait

done <temp/files.txt

find syntax_tests/data/parsing/{grammar,other} -name "*.res" -o -name "*.resi" >temp/files.txt

while read file; do

$DUNE_BIN_DIR/res_parser -print ml $file &> $(exp $file) & maybeWait

done <temp/files.txt

find syntax_tests/data/{printer,conversion} -name "*.res" -o -name "*.resi" -o -name "*.ml" -o -name "*.mli" >temp/files.txt

while read file; do

$DUNE_BIN_DIR/res_parser $file &> $(exp $file) & maybeWait

done <temp/files.txt

find syntax_tests/data/ast-mapping -name "*.res" -o -name "*.resi" -o -name "*.ml" -o -name "*.mli" >temp/files.txt

while read file; do

$DUNE_BIN_DIR/res_parser -test-ast-conversion -jsx-version 4 $file &> $(exp $file) & maybeWait

done <temp/files.txt

find syntax_tests/data/ppx/react -name "*.res" -o -name "*.resi" >temp/files.txt

while read file; do

$DUNE_BIN_DIR/res_parser -jsx-version 4 $file &> $(exp $file) & maybeWait

done <temp/files.txt

warningYellow='\033[0;33m'

successGreen='\033[0;32m'

reset='\033[0m'

git diff --ignore-cr-at-eol $(find syntax_tests -name expected) >temp/diff.txt

diff=$(cat temp/diff.txt)

if [[ $diff = "" ]]; then

printf "${successGreen}✅ No unstaged tests difference.${reset}\n"

printf "${warningYellow}⚠️ There are unstaged differences in syntax_tests/data/! Did you break a test?\n%s\n${reset}" "$diff"

rm -r temp/

exit 1

if [[ $ROUNDTRIP_TEST = 1 ]]; then

echo "Running roundtrip tests…"

roundtripTestsResult="temp/result.txt"

touch $roundtripTestsResult

find syntax_tests/data/{idempotency,printer} -name "*.res" -o -name "*.resi" >temp/files.txt

while read file; do {

mkdir -p temp/$(dirname $file)

sexpAst1=temp/$file.sexp

sexpAst2=temp/$file.2.sexp

sexpAst3=temp/$file.3.sexp

rescript1=temp/$file.res

rescript2=temp/$file.2.res

case $file in

*.res ) resIntf="" ;;

*.resi ) resIntf=-interface ;;

esac

# First pass: original file -> AST1 and text1

$DUNE_BIN_DIR/res_parser $resIntf -print sexp $file > $sexpAst1

$DUNE_BIN_DIR/res_parser $resIntf -print res $file > $rescript1

# Second pass: text1 -> AST2 and text2

$DUNE_BIN_DIR/res_parser $resIntf -print sexp $rescript1 > $sexpAst2

$DUNE_BIN_DIR/res_parser $resIntf -print res $rescript1 > $rescript2

# Third pass: text2 -> AST3 (to check idempotency after normalization)

$DUNE_BIN_DIR/res_parser $resIntf -print sexp $rescript2 > $sexpAst3

# Check AST idempotency: AST2 should equal AST3 (allows AST1 != AST2 for canonicalization)

diff --unified $sexpAst2 $sexpAst3

[[ "$?" = 1 ]] && echo 1 > $roundtripTestsResult

# Check text idempotency: text1 should equal text2

diff --unified $rescript1 $rescript2

[[ "$?" = 1 ]] && echo 1 > $roundtripTestsResult

} & maybeWait

done <temp/files.txt

wait

result=$(cat $roundtripTestsResult)

if [[ $result = "1" ]]; then

printf "${warningYellow}⚠️ Roundtrip tests failed.${reset}\n"

exit 1

else

printf "${successGreen}✅ Roundtrip tests succeeded.${reset}\n"

fi

rm -r temp/

printf "${successGreen}✅ All syntax tests passed.${reset}\n"