import TestLib;

import TestLib;

void test(bool r, bool i) {
file fout=output("xdata",mode="xdr").word().singlereal(r).singleint(i);
write(fout,"test");
write(fout,1);
write(fout,2.0);
write(fout,(3,4));
write(fout,(5,6,7));
close(fout);

file fin=input("xdata",mode="xdr").word().singlereal(r).singleint(i);
string a=fin;
assert(a == "test");
int b=fin;
assert(b == 1);
real c=fin;
assert(c == 2.0);
pair d=fin;
assert(d == (3,4));
triple e=fin;
assert(e == (5,6,7));
}

StartTest("xdr: single real, single int");
{
test(true,true);
}
EndTest();

StartTest("xdr: single real, double int");
{
test(true,false);
}
EndTest();

StartTest("xdr: double real, single int");
{
test(false,true);
}
EndTest();

StartTest("xdr: double real, double int");
{
test(false,false);
}
EndTest();

StartTest("xdr: character");
{
file fout=output("xdata",mode="xdr");
write(fout,"a");
write(fout,"b");
close(fout);

file fin=input("xdata",mode="xdr");
string a=getc(fin);
assert(a == "a");
string b=getc(fin);
assert(b == "b");
}
EndTest();