Update of the getURL test due to the recent changes
[scilab.git] / scilab / modules / fileio / tests / unit_tests / getURL.dia.ref
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 //getURL
8 cd TMPDIR;
9 myFile=getURL("http://www.scilab.org");
10 assert_checkequal(myFile, "index.html")
11  ans  =
12  
13   T  
14 inf=fileinfo(myFile);
15 assert_checktrue(inf(1) > 1000); // The homepage of Scilab is likely to be bigger than 1k
16 myFile=getURL("http://www.scilab.org/");
17 assert_checkequal(myFile, "index.html")
18  ans  =
19  
20   T  
21 inf=fileinfo(myFile);
22 assert_checktrue(inf(1) > 1000); // The homepage of Scilab is likely to be bigger than 1k
23 myFile=getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README");
24 assert_checkequal(myFile, "README");
25 inf=fileinfo(myFile);
26 assert_checktrue(inf(1) > 10); // The file size should be more than 10
27 targetFile=TMPDIR+"/README_Debian";
28 myFile=getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README",targetFile);
29 assert_checkequal(myFile, targetFile);
30 inf=fileinfo(targetFile);
31 assert_checktrue(inf(1) > 10); // The file size should be more than 10
32 f1 = mopen(targetFile,"r");
33 assert_checktrue(grep(mgetl(f1),"Linux") <> []);
34 mclose(f1);
35 targetFile="README";
36 myFile=getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README",TMPDIR);
37 assert_checkequal(myFile, TMPDIR+"/"+targetFile);
38 inf=fileinfo(TMPDIR+"/"+targetFile);
39 assert_checktrue(inf(1) > 10); // The file size should be more than 10
40 f1 = mopen(TMPDIR+"/"+targetFile,"r");
41 assert_checktrue(grep(mgetl(f1),"Linux") <> []);
42 mclose(f1);
43 // HTTPS
44 myFile=getURL("https://encrypted.google.com");
45 assert_checkequal(myFile, "index.html");
46 inf=fileinfo(myFile);
47 assert_checktrue(inf(1) > 10); // The file size should be more than 10
48 targetFile=TMPDIR+"/testauth";
49 myFile=getURL("http://httpbin.org/basic-auth/user/passwd",targetFile,"user","passwd");
50 assert_checkequal(myFile, targetFile);
51 inf=fileinfo(targetFile);
52 assert_checktrue(inf(1) > 10); // The file size should be more than 10
53 f1 = mopen(targetFile,"r");
54 assert_checktrue(grep(mgetl(f1),"authenticated") <> []);
55 mclose(f1);
56 // Badly formated URL
57 assert_checkerror("getURL(''http://plop@ae:www.scilab.org:80'');", [], 999);
58 [f, HTMLContent]=getURL("http://www.scilab.org:80");
59 assert_checktrue(length(HTMLContent) > 10);
60 assert_checktrue(grep(HTMLContent,"html") <> []);
61 [f, HTMLContent]=getURL("http://plop:ae@www.scilab.org:80");
62 assert_checktrue(length(HTMLContent) > 10);
63 assert_checktrue(grep(HTMLContent,"html") <> []);
64 [f, HTMLContent]=getURL("http://www.scilab.org/aze");
65 assert_checktrue(length(HTMLContent) > 10);
66 assert_checkequal(grep(HTMLContent,"404"), []);
67 [f, HTMLContent]=getURL("http://www.scilab.org");
68 assert_checktrue(length(HTMLContent) > 10);
69 assert_checktrue(grep(HTMLContent,"html") <> []);
70 [f, HTMLContent]=getURL("http://www.scilab.org/");
71 assert_checktrue(length(HTMLContent) > 10);
72 assert_checktrue(grep(HTMLContent,"html") <> []);
73 [f, HTMLContent]=getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README");
74 assert_checktrue(length(HTMLContent) > 0);
75 assert_checktrue(grep(HTMLContent,"Linux") <> []);
76 // HTTPS
77 [f, HTMLContent]=getURL("https://encrypted.google.com");
78 assert_checktrue(length(HTMLContent) > 100);
79 [f, HTMLContent]=getURL("http://httpbin.org/basic-auth/user/passwd",TMPDIR,"user","passwd");
80 assert_checktrue(length(HTMLContent) > 10);
81 assert_checktrue(grep(HTMLContent,"authenticated") <> []);
82 // Badly formated URL
83 assert_checkerror("getURL(''http://plop@ae:www.scilab.org:80'');", [], 999);