-#!/usr/bin/perl
+#!perl
# Test whether $Math::BigInt::upgrade breaks our neck
$x = $rat->new('1/3');
is($x->bsqrt(),
- '1000000000000000000000000000000000000000/1732050807568877293527446341505872366943',
+ '1443375672974064411272871951254893639119/2500000000000000000000000000000000000000',
'bsqrt(1/3)');
# all tests successful