src/Doc/Tutorial/ToyList/ToyList_Test.thy

proper order of matches: Server.Error is an instance of Exn.ERROR;

theory ToyList_Test
imports Main
begin

ML \<open>
  let val text =
    map (File.read o Path.append (Resources.master_directory @{theory}) o Path.explode)
      ["ToyList1.txt", "ToyList2.txt"]
    |> implode
  in Thy_Info.script_thy Position.start text @{theory} end
\<close>

end