typst-collection/glossy/tests/determine-article/test.typ

#import "/src/utils.typ": *

#let tests = (
  // Main tests (covers most of English language)
  ("Europe", "a"),
  ("European", "a"),
  ("Hannah", "a"),
  ("T-shirt", "a"),
  ("Xerox", "a"),
  ("Zebra", "a"),
  ("aardvark", "an"),
  ("apple", "an"),
  ("boat", "a"),
  ("car", "a"),
  ("cat", "a"),
  ("chair", "a"),
  ("dog", "a"),
  ("egg", "an"),
  ("elephant", "an"),
  ("emu", "an"),
  ("eucalyptus", "a"),
  ("eulogy", "a"),
  ("euphemism", "a"),
  ("exhausted", "an"),
  ("ghost", "a"),
  ("hat", "a"),
  ("heir", "an"),
  ("heiress", "an"),
  ("herb", "an"),
  ("herbal", "an"),
  ("historic", "a"),
  ("history", "a"),
  ("homage", "an"),
  ("honest", "an"),
  ("honestly", "an"),
  ("honor", "an"),
  ("honorary", "an"),
  ("honour", "an"),
  ("horse", "a"),
  ("hour", "an"),
  ("hourglass", "an"),
  ("house", "a"),
  ("iris", "an"),
  ("orange", "an"),
  ("owl", "an"),
  ("table", "a"),
  ("ugly", "an"),
  ("umbrella", "an"),
  ("umpire", "an"),
  ("unicorn", "a"),
  ("unique", "a"),
  ("university", "a"),
  ("urn", "an"),
  ("usage", "a"),
  ("user", "a"),
  ("utensil", "a"),
  // Acronym tests
  ("ASCII", "an"),
  ("CFO", "a"),
  ("F.A.Q.", "an"),
  ("FBI", "an"),
  ("GIF", "a"),
  ("HIV", "an"),
  ("JPEG", "a"),
  ("LED", "an"),
  ("MRI", "an"),
  ("NATO", "an"),
  ("PNG", "a"),
  ("Q&A", "a"),
  ("RF", "an"),
  ("RNG", "an"),
  ("SAS", "an"),
  ("SMS", "an"),
  ("SOS", "an"),
  ("SQL", "an"),
  ("UFO", "a"),
  ("URL", "a"),
  ("VCR", "a"),
  ("WWW", "a"),
  ("X.Y.Z.", "an"),
  ("YAML", "a"),
  // Extra tests (courtesy of LLM)
  // Common English words starting with vowels
  ("idea", "an"),
  ("island", "an"),
  ("offer", "an"),
  ("option", "an"),
  ("operation", "an"),
  ("appletree", "an"),
  ("iguana", "an"),
  ("octopus", "an"),
  ("atom", "an"),
  ("item", "an"),
  // Words starting with vowel but "yoo" sound (thus 'a')
  ("universe", "a"),
  ("unicycle", "a"),
  ("uniform", "a"),
  ("union", "a"),
  ("united", "a"),
  ("unique", "a"), // already tested, reaffirmed
  ("usual", "a"),
  ("useful", "a"),
  ("utility", "a"),
  ("utopia", "a"),
  // More common vowel words with a/an
  ("umbrella", "an"), // repeated but reaffirming
  ("eggplant", "an"),
  ("insect", "an"),
  ("eleven", "an"),
  ("olive", "an"),
  ("impulse", "an"),
  ("ox", "an"),
  ("aroma", "an"),
  ("ear", "an"),
  ("ocean", "an"),
  // Words starting with 'h' but pronounced, so 'a'
  ("house", "a"), // repeated for emphasis
  ("hammer", "a"),
  ("helmet", "a"),
  ("history", "a"), // repeated
  ("hero", "a"),
  ("hill", "a"),
  ("hobby", "a"),
  ("holiday", "a"),
  ("harmony", "a"),
  ("hover", "a"),
  // More silent 'h' words (already in set, but variations)
  ("honorific", "an"),
  ("honorarium", "an"),
  ("honesties", "an"),
  ("hourly", "an"),
  ("heirloom", "an"),
  // Words starting with 'e' + 'u' combo with "yoo" sound
  ("Europe", "a"), // repeated
  ("European", "a"), // repeated
  ("euphoric", "a"),
  ("eureka", "a"),
  ("euphemistic", "a"),
  ("euphonious", "a"),
  ("eucalyptus", "a"), // repeated
  ("euthanasia", "a"),
  ("eugenics", "a"),
  ("Eurasia", "a"),
  // Common consonant-start words
  ("book", "a"),
  ("pen", "a"),
  ("fork", "a"),
  ("spoon", "a"),
  ("knife", "a"),
  ("ball", "a"),
  ("tree", "a"),
  ("river", "a"),
  ("mountain", "a"),
  ("cloud", "a"),
  // More vowel-start words
  ("ostrich", "an"),
  ("amphibian", "an"),
  ("eleven", "an"), // repeated
  ("issue", "an"),
  ("incense", "an"),
  ("antenna", "an"),
  ("echo", "an"),
  ("aisle", "an"),
  ("oracle", "an"),
  ("overcoat", "an"),
  // More acronym/initialism tests:
  ("ATM", "an"), // A = 'ay'
  ("EPA", "an"), // E = 'ee'
  ("FAQ", "an"), // F = 'eff', repeated as F.A.Q.
  ("HTML", "an"), // H = 'aitch'
  ("IBM", "an"), // I = 'eye'
  ("LAN", "an"), // L = 'el'
  ("NFL", "an"), // N = 'en'
  ("OSHA", "an"), // O = 'oh'
  ("RAM", "an"), // R = 'ar'
  ("SMS", "an"), // repeated, S = 'ess'
  // Acronyms starting with consonant sound letters
  ("GIF", "a"), // G = 'jee', repeated
  ("CFO", "a"), // C = 'see', repeated (consonant sound 's')
  ("CEO", "a"), // C = 'see'
  ("DNA", "a"), // D = 'dee' starts with 'd' consonant sound
  ("PGA", "a"), // P = 'pee' starts with 'p' consonant sound
  ("QVC", "a"), // Q = 'kyoo' starts with 'k' consonant sound
  ("TNT", "a"), // T = 'tee' starts with 't' consonant sound
  ("UPS", "a"), // U = 'yoo' sound, hence 'a'
  ("VIP", "a"), // V = 'vee' starts with 'v' consonant sound
  ("WIPO", "a"), // W = 'double-u' starts with 'd' consonant sound
  // More tricky 'u' words with 'yoo' sound for 'a'
  ("unify", "a"),
  ("unilateral", "a"),
  ("ubiquitous", "a"), // 'yoo-bik...'
  ("usurp", "a"),
  ("usuary", "a"), // 'yoo-zhoo-ary' (rare, but treat like usual)
  ("uterus", "a"), // 'yoo-terus'
  ("usher", "an"), // 'uh-sher' vowel sound
  ("ugly", "an"), // repeated, 'uh-glee'
  ("upper", "an"), // 'uh-pur' (vowel sound but actually 'uh' sound = 'an'? Actually "upper" starts with a simple vowel sound 'uh', so should it be 'an'? It's commonly "an upper hand".
  ("update", "an"), // 'up-date' starts with 'uh' vowel sound → 'an update' normally. Actually we say "an update" commonly. Correcting to 'an':
  // Words starting with 'u' that actually take "an"
  // (because they start with a vowel sound 'uh'):
  ("under", "an"),
  ("understand", "an"),
  ("unusual", "an"),
  ("unreal", "an"),
  ("unemployed", "an"),
  ("unequal", "an"),
  ("unopened", "an"),
  ("unarmed", "an"),
  ("uneasy", "an"),
  ("united", "a"), // 'yoo-nited' is 'a united front'
  ("universal", "a"),
  ("umbrella", "an"), // repeated
  ("upset", "an"), // 'uh-pset' vowel start
  // More vowel words to ensure coverage:
  ("animal", "an"),
  ("image", "an"),
  ("order", "an"),
  ("arrow", "an"),
  ("ace", "an"),
  ("acre", "an"),
  ("agent", "an"),
  ("artist", "an"),
  ("idea", "an"), // repeated
  ("aim", "an"),
  ("item", "an"), // repeated
  ("isotope", "an"),
  ("opera", "an"),
  // Words starting with vowels but pronounced with consonant sound 'y' → 'a'
  ("euphemistic", "a"), // repeated
  ("euphoric", "a"),
  ("eulogy", "a"), // repeated
  ("Europe", "a"), // repeated
  ("European", "a"), // repeated
  ("eugenics", "a"), // repeated
  ("euphemism", "a"), // repeated
  ("eureka", "a"), // repeated
  ("euphonious", "a"),
  ("Eurasia", "a"),
  // Common consonant-start words:
  ("milk", "a"),
  ("road", "a"),
  ("stone", "a"),
  ("book", "a"), // repeated
  ("pen", "a"), // repeated
  ("fork", "a"), // repeated
  ("spoon", "a"), // repeated
  ("knife", "a"), // 'knife' actually starts with /n/ sound because 'k' is silent. "a knife" or "an knife"? It's "a knife" (starts with 'n' consonant sound?), actually 'kn' in 'knife' is silent, so 'knife' is pronounced 'nife' with a consonant sound 'n', so "a knife" is correct.
  ("glass", "a"),
  ("window", "a"),
  // Final checks with tricky silent letters:
  ("gnome", "a"), // 'g' silent, pronounced 'nome' with 'n' consonant sound → 'a gnome'
  ("gnat", "a"), // 'nat' consonant sound → 'a gnat'
  ("xylophone", "a"), // 'zylophone' → 'z' consonant sound → 'a xylophone'
  ("xenon", "a"), // 'zee-non' consonant sound 'z' → 'a xenon'
  ("honorific", "an"), // repeated but reaffirming
  ("hourly", "an"), // repeated but reaffirming
  ("honorably", "an"),
  ("honorifics", "an"),
  ("honors", "an"),
)

#for (word, article) in tests {
  let chosen = __determine_article(word)
  if chosen != article {
    panic(
      "bad choice! word: "
        + word
        + ", article: "
        + article
        + ", chosen: "
        + chosen,
    )
  }
}

#set page(height: auto, width: auto, margin: 1em)

Success! All articles determined properly!