tests/unit_tests/getURL.tst

11 function checkFile(filePath, expectedFilePath, minimalFileSize)
12     assert_checkequal(filePath, expectedFilePath)
13     info = fileinfo(filePath);
15     deletefile(filePath);
18 function checkFileAndContent(filePath, expectedFilePath, minimalFileSize, keywordToFind)
19     fd = mopen(filePath, "r");
22     checkFile(filePath, expectedFilePath, minimalFileSize);
25 function checkContent(filePath, content, keyword, keywordToFind)
28     deletefile(filePath);
37 filePath = getURL("http://www.scilab.org");
38 checkFile(filePath, fullfile(destdir, "index.html"), 1000);
40 filePath = getURL("http://www.scilab.org/");
41 checkFile(filePath, fullfile(destdir, "index.html"), 1000);
43 filePath = getURL("http://www.scilab.org/product/man/numderivative.html");
44 checkFile(filePath, fullfile(destdir, "numderivative.html"), 1000);
46 filePath = getURL("www.scilab.org");
47 checkFile(filePath, fullfile(destdir, "index.html"), 1000);
49 filePath = getURL("www.scilab.org/product/man/numderivative.html");
50 checkFile(filePath, fullfile(destdir, "numderivative.html"), 1000);
52 filePath = getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README");
53 checkFile(filePath, fullfile(destdir, "README"), 10);
55 filePath = getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README", fullfile(destdir, "REA…
56 checkFileAndContent(filePath, fullfile(destdir, "README_Debian"), 10, "Linux");
58 filePath = getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README", destdir);
59 checkFileAndContent(filePath, fullfile(destdir, "README"), 10, "Linux");
62 filePath = getURL("https://encrypted.google.com");
63 checkFileAndContent(filePath, fullfile(destdir, "index.html"), 100, "html");
65 filePath = getURL("http://httpbin.org/basic-auth/user/passwd", fullfile(destdir, "testauth"), "user…
66 checkFileAndContent(filePath, fullfile(destdir, "testauth"), 10, "authenticated");
69 [filePath, content] = getURL("http://www.scilab.org:80");
70 checkContent(filePath, content, 1000, "html");
72 [filePath, content] = getURL("http://plop:ae@www.scilab.org:80");
73 checkContent(filePath, content, 1000, "html");
75 [filePath, content] = getURL("http://www.scilab.org/aze");
76 checkContent(filePath, content, 100, "ESI");
78 [filePath, content] = getURL("http://www.scilab.org");
79 checkContent(filePath, content, 1000, "html");
81 [filePath, content] = getURL("http://www.scilab.org/");
82 checkContent(filePath, content, 1000, "html");
84 [filePath, content] = getURL("ftp://ftp.free.fr/pub/Distributions_Linux/debian/README");
85 checkContent(filePath, content, 10, "Linux");
88 [filePath, content] = getURL("https://encrypted.google.com");
89 checkContent(filePath, content, 100, "html");
91 [filePath, content] = getURL("http://httpbin.org/basic-auth/user/passwd", destdir, "user", "passwd"…
92 checkContent(filePath, content, 10, "authenticated");