#!/bin/bash

# Tests map on all input/*.csv

# Usage: env [n=<num-rows>] self

selfDir="$(dirname -- "$0")"

cd "$selfDir"

shopt -s nullglob

test -n "$n" || export n=2

. ../util/env_password in_password

make --directory=../../mappings

function trace()

{

    (

        echo -n "$PS4"

        for arg in "$@"; do printf "%q " "$arg"; done

        echo "${_in+<$_in}" "${_out+>$_out}"

    ) >&2

}

function map()

{

    test -e "$in" || return 1

    local ext="${in##*.}" # after last "."

    for map in "../../mappings/$src-$out_fmt."$table".csv"; do

        table="${map%.*}" # remove extension

        table="${table##*.}" # after last "."

        (

            if test "$ext" == "sh"; then

                trace . "$in"

                (. "$in"; "$1")

            else

                (_in="$in"; trace)

                "$1" <"$in"

            fi

        ) || exit # abort tester

    done

}

function toXml()

{

    local stem="$orig_src.$table.$out_fmt"

    local out="output/$stem${method+.$method}.xml"

    local accepted="accepted_output/$stem.xml"

    (

        set -x

        ../map "$map" >"$out" || exit

        diff "$accepted" "$out" || true # ignore exit status

    ) || exit # abort tester

}

function toDb()

{

    (set -x; ../map2vegbank "$map")

}

for in in input/*; do

    stem="$(basename -- "${in%.*}")" # remove extension and dir

    ext="${in##*.}" # after last "."

    src="${stem%.*}" # before last ".", if any

    orig_src="$src"

    if test "$ext" == "sh"; then table="*" # use all tables with a mapping

    else table="${stem##*.}" # after last "."

    fi

    for out_fmt in VegX VegBank; do map toXml; done # source to XML

    out_fmt=VegBank

    # VegX to VegBank

    (

        src=VegX method=via_$src

        for in in "output/$orig_src."$table".$src.xml"; do

            table="${in#*.}" # after first "."

            table="${table%%.*}" # before second "."

            map toXml

        done

    ) || exit

    map toDb # source to VegBank db

done