Fix Ar crashing on odd-sized object files (Trac #15396)
[ghc.git] / testsuite / tests / driver / T15396.hs
1 {-# LANGUAGE OverloadedStrings #-}
2 import Ar
3
4 -- obtained from echo -n \0 > x.o && ar -q b.a x.o && cat b.a
5 archive = "!<arch>\nx.o/ 0 0 0 644 1 \
6 \`\n0\nx.o/ 0 0 0 644 1 `\n0\n"
7
8 main = print (parseAr archive)