New tests for BinaryS3.R

binary()
as.binary()
is.binary()

print ("no test available") for function having no test.