# Test file for HypergeomDeg1:

# read"C:/Users/NiruViju/Desktop/HypergeomDeg1.txt":

L:= [Dx^2+(1/2)*(120*x^2-249*x+116)*Dx/((5*x-3)*(-5+6*x)*(-2+x))+(245/144)/((5*x-3)^2*(-5+6*x)*(-2+x)), Dx^2-(9/2)*x*Dx/((-2+3*x)*(-1+3*x))+
(77/16)/((-2+3*x)*(-1+3*x)), Dx^2+(9/2)*(-1+2*x)*Dx/((-2+3*x)*(-1+3*x))+(1/2)/((-2+3*x)^2*(-1+3*x)), Dx^2-(9/2)*(-2+5*x)*Dx/((-2+3*x)*(-1+3*x))+
(49/2)/((-2+3*x)*(-1+3*x)), Dx^2+(2/5)*(15*x-2)*Dx/(x*(-2+3*x))-(9272/1225)/((-2+3*x)^2*x*(2+5*x)), Dx^2+6*Dx/(-2+3*x)+(108/49)/((-2+3*x)^2*(-1+3*x)),
Dx^2-3*(-4+9*x)*Dx/((-2+3*x)*(-1+3*x))+(143/4)/((-2+3*x)*(-1+3*x)), Dx^2+(2/5)*(90*x^3-60*x^2+9*x+2)*Dx/(45*x^3-63*x^2+28*x-4)+(2/25)*(450*x^4-150*x^3-
785*x^2+400*x-68)/(225*x^4-405*x^3+266*x^2-76*x+8), Dx^2+(4/3)*(3*x^3-3*x^2+x+2)*Dx/((5*x^2-12*x+4)*x)+(2/225)*(450*x^6-2625*x^4-300*x^3+1000*x^2+
2320*x+3376)/(x*(25*x^5-70*x^4-56*x^3+272*x^2-176*x+32)), Dx^2+(18/5)*(11*x+3*RootOf(_Z^2+3))*Dx/((9*x+2*RootOf(_Z^2+3))*(3*x+RootOf(_Z^2+3)))-
(132/25)/((9*x+2*RootOf(_Z^2+3))*(3*x+RootOf(_Z^2+3))), Dx^2-(2/5)*(27*x+2*3^(1/2))*Dx/((3*x+2*3^(1/2))*(-3*x+2*3^(1/2)))-
(176/25)*3^(1/2)/((3*x+2*3^(1/2))^2*(-3*x+2*3^(1/2)))]: 


Ans:= []:
 for i from 1 to nops(L) do
  Soln:= HypergeomDeg1(L[i],x);
  Chk:= evala(simplify(eval(diffop2de(L[i],y(x)),y(x)=Soln)));
    if Chk <> 0 then error "Something went wrong!"; fi;
  Ans:= [op(Ans),Chk];
 od; 
 Ans; nops(Ans); nops(L);