Update of the getURL test due to the recent changes
[scilab.git] / scilab / modules / fileio / tests / unit_tests / getURL.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2011 - Sylvestre LEDRU
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 //getURL
9
10 cd TMPDIR;
11 myFile=getURL("http://www.scilab.org");
12 assert_checkequal(myFile, "index.html")
13 inf=fileinfo(myFile);
14 assert_checktrue(inf(1) > 1000); // The homepage of Scilab is likely to be bigger than 1k
15
16 myFile=getURL("http://www.scilab.org/");
17 assert_checkequal(myFile, "index.html")
18 inf=fileinfo(myFile);
19 assert_checktrue(inf(1) > 1000); // The homepage of Scilab is likely to be bigger than 1k
20
21
22 myFile=getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README");
23
24 assert_checkequal(myFile, "README");
25 inf=fileinfo(myFile);
26 assert_checktrue(inf(1) > 10); // The file size should be more than 10
27
28
29 targetFile=TMPDIR+"/README_Debian";
30 myFile=getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README",targetFile);
31
32 assert_checkequal(myFile, targetFile);
33 inf=fileinfo(targetFile);
34 assert_checktrue(inf(1) > 10); // The file size should be more than 10
35 f1 = mopen(targetFile,"r");
36 assert_checktrue(grep(mgetl(f1),"Linux") <> []);
37 mclose(f1);
38
39
40 targetFile="README";
41 myFile=getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README",TMPDIR);
42
43 assert_checkequal(myFile, TMPDIR+"/"+targetFile);
44 inf=fileinfo(TMPDIR+"/"+targetFile);
45 assert_checktrue(inf(1) > 10); // The file size should be more than 10
46 f1 = mopen(TMPDIR+"/"+targetFile,"r");
47 assert_checktrue(grep(mgetl(f1),"Linux") <> []);
48 mclose(f1);
49
50 // HTTPS
51 myFile=getURL("https://encrypted.google.com");
52 assert_checkequal(myFile, "index.html");
53 inf=fileinfo(myFile);
54 assert_checktrue(inf(1) > 10); // The file size should be more than 10
55
56 targetFile=TMPDIR+"/testauth";
57 myFile=getURL("http://httpbin.org/basic-auth/user/passwd",targetFile,"user","passwd");
58
59 assert_checkequal(myFile, targetFile);
60 inf=fileinfo(targetFile);
61 assert_checktrue(inf(1) > 10); // The file size should be more than 10
62 f1 = mopen(targetFile,"r");
63 assert_checktrue(grep(mgetl(f1),"authenticated") <> []);
64 mclose(f1);
65
66 // Badly formated URL
67 assert_checkerror("getURL(''http://plop@ae:www.scilab.org:80'');", [], 999);
68
69 [f, HTMLContent]=getURL("http://www.scilab.org:80");
70 assert_checktrue(length(HTMLContent) > 10);
71 assert_checktrue(grep(HTMLContent,"html") <> []);
72
73 [f, HTMLContent]=getURL("http://plop:ae@www.scilab.org:80");
74 assert_checktrue(length(HTMLContent) > 10);
75 assert_checktrue(grep(HTMLContent,"html") <> []);
76
77 [f, HTMLContent]=getURL("http://www.scilab.org/aze");
78 assert_checktrue(length(HTMLContent) > 10);
79 assert_checkequal(grep(HTMLContent,"404"), []);
80
81
82
83 [f, HTMLContent]=getURL("http://www.scilab.org");
84 assert_checktrue(length(HTMLContent) > 10);
85 assert_checktrue(grep(HTMLContent,"html") <> []);
86
87 [f, HTMLContent]=getURL("http://www.scilab.org/");
88 assert_checktrue(length(HTMLContent) > 10);
89 assert_checktrue(grep(HTMLContent,"html") <> []);
90
91 [f, HTMLContent]=getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README");
92 assert_checktrue(length(HTMLContent) > 0);
93 assert_checktrue(grep(HTMLContent,"Linux") <> []);
94
95 // HTTPS
96 [f, HTMLContent]=getURL("https://encrypted.google.com");
97 assert_checktrue(length(HTMLContent) > 100);
98
99 [f, HTMLContent]=getURL("http://httpbin.org/basic-auth/user/passwd",TMPDIR,"user","passwd");
100 assert_checktrue(length(HTMLContent) > 10);
101 assert_checktrue(grep(HTMLContent,"authenticated") <> []);
102
103 // Badly formated URL
104 assert_checkerror("getURL(''http://plop@ae:www.scilab.org:80'');", [], 999);