\insert 'SquareRoot.oz' \insert 'FloatTest.oz' {StartTesting 'SquareRoot...'} Millionth = 0.0000001 WithinMillionth = {FloatTestMaker Within WithinLists Millionth} {WithinMillionth {SquareRoot 1.0 Millionth 2.0} '~=~' 1.41421356} {WithinMillionth {SquareRoot 1.0 Millionth 4.0} '~=~' 2.0} {WithinMillionth {SquareRoot 1.0 Millionth 64.0} '~=~' 8.0} {WithinMillionth {SquareRoot 1.0 Millionth 3.14159} '~=~' 1.7724531}