#include "a_lolly_test.hpp"
#include "sys_utils.hpp"
#include "url.hpp"

Include dependency graph for url_test.cpp:

Functions
TEST_MEMORY_LEAK_INIT	TEST_CASE ("label of url")

	TEST_CASE ("protocol of url")

	TEST_CASE ("url with env")

	TEST_CASE ("is here/parent/ancestor")

	TEST_CASE ("is_none")

	TEST_CASE ("is_root")

	TEST_CASE ("is_concat")

	TEST_CASE ("suffix/basename")

	TEST_CASE ("as_string")

	TEST_CASE ("unknown protocol like zotero")

	TEST_CASE ("relative")

	TEST_CASE ("delta")

	TEST_CASE ("url_concat")

	TEST_CASE ("expand")

	TEST_CASE ("reroot")

	TEST_CASE ("descends")

	TEST_CASE ("is_atomic")

Variables
url	ustc_edu = url_system ("https://ustc.edu.cn")

url	texmacs_org = url_system ("http://texmacs.org")

url	none_url = url_none ()

url	file_root = url_root ("file")

url	file_tmp = url_system ("file:///tmp")

url	ftp_root = url_root ("ftp")

url	wsl_ubuntu = url_system ("\\\\wsl.localhost\\Ubuntu")

url	unix_root = url_system ("/")

url	unix_root_txt = url_system ("/abc.txt")

url	unix_tmp = url_system ("/tmp")

url	unix_tmp_a = url_system ("/tmp/a")

url	abc_url = url_system ("abc")

Function Documentation

◆ TEST_CASE() [1/17]

TEST_MEMORY_LEAK_INIT TEST_CASE ( "label of url" )

Definition at line 26 of file url_test.cpp.

                           {
  string_eq (ustc_edu.label (), "concat");
  string_eq (texmacs_org.label (), "concat");
  string_eq (none_url.label (), "none");
  string_eq (file_root.label (), "root");
  string_eq (ftp_root.label (), "root");
#if defined(OS_MINGW) || defined(OS_WIN)
  SUBCASE ("on host windows") { string_eq (wsl_ubuntu.label (), "concat"); }
#endif
#if defined(OS_MACOS) || defined(OS_LINUX) || defined(OS_WASM)
  SUBCASE ("on host macos/linux/wasm") {
    string_eq (unix_root.label (), "root");
    string_eq (unix_root_txt.label (), "concat");
    string_eq (unix_tmp.label (), "concat");
    string_eq (unix_tmp_a.label (), "concat");
  }
#endif
  string_eq (file_tmp.label (), "concat");
  string_eq (abc_url.label (), "");
}

◆ TEST_CASE() [2/17]

TEST_CASE ( "protocol of url" )

Definition at line 47 of file url_test.cpp.

                              {
  string_eq (ustc_edu.protocol (), "https");
  string_eq (texmacs_org.protocol (), "http");
  string_eq (none_url.protocol (), "default");
  string_eq (file_root.protocol (), "file");
  string_eq (ftp_root.protocol (), "ftp");
  string_eq (wsl_ubuntu.protocol (), "default");
  string_eq (unix_root.protocol (), "default");
  string_eq (unix_root_txt.protocol (), "default");
  string_eq (unix_tmp.protocol (), "default");
  string_eq (unix_tmp_a.protocol (), "default");
  string_eq (abc_url.protocol (), "default");
 
  string_eq (get_root (ustc_edu), "https");
  string_eq (get_root (texmacs_org), "http");
  string_eq (get_root (file_root), "file");
  string_eq (get_root (file_tmp), "file");
  string_eq (get_root (ftp_root), "ftp");
#if defined(OS_MINGW) || defined(OS_WIN)
  string_eq (get_root (wsl_ubuntu), "default");
#endif
  string_eq (get_root (none_url), "default");
  string_eq (get_root (file_root | texmacs_org), "");
#if defined(OS_MACOS) || defined(OS_LINUX) || defined(OS_WASM)
  SUBCASE ("on host macos/linux/wasm") {
    url u1= url_system ("file:///$HOME/.bashrc");
    string_eq (get_root (u1), "file");
  }
#endif
}

◆ TEST_CASE() [3/17]

TEST_CASE ( "url with env" )

Definition at line 78 of file url_test.cpp.

                           {
#if defined(OS_MINGW) || defined(OS_WIN)
  SUBCASE ("on windows") {
    set_env ("TEST_ENV", "System;Plugins;Kernel");
    url u= url ("$TEST_ENV");
    CHECK (is_or (u));
  }
#endif
#if defined(OS_MACOS) || defined(OS_LINUX) || defined(OS_WASM)
  SUBCASE ("on macos/linux/wasm") {
    set_env ("TEST_ENV", "System:Plugins:Kernel");
    url u= url ("$TEST_ENV");
    CHECK (is_or (u));
  }
#endif
}

◆ TEST_CASE() [4/17]

TEST_CASE ( "is here/parent/ancestor" )

Definition at line 95 of file url_test.cpp.

95{ CHECK (is_here (url_here ())); }

is_here

bool is_here(url u)

Definition url.hpp:154

url_here

url url_here()

Definition url.hpp:122

◆ TEST_CASE() [5/17]

TEST_CASE ( "is_none" )

Definition at line 97 of file url_test.cpp.

                      {
  CHECK (!is_none (ustc_edu));
  CHECK (!is_none (texmacs_org));
  CHECK (!is_none (wsl_ubuntu));
  CHECK (!is_none (file_root));
  CHECK (is_none (none_url));
 
  CHECK (is_none (url ()));
  url_eq (url (), url_none ());
  CHECK (!is_none (url ("")));
  url_neq (url (), url (""));
}

◆ TEST_CASE() [6/17]

TEST_CASE ( "is_root" )

Definition at line 110 of file url_test.cpp.

                      {
  CHECK (!is_root (ustc_edu));
  CHECK (!is_root (texmacs_org));
  CHECK (!is_root (wsl_ubuntu));
  CHECK (is_root (file_root));
  CHECK (!is_root (none_url));
#if defined(OS_MACOS) || defined(OS_LINUX)
  CHECK (is_root (unix_root));
#endif
  CHECK (!is_root (abc_url));
}

◆ TEST_CASE() [7/17]

TEST_CASE ( "is_concat" )

Definition at line 122 of file url_test.cpp.

                        {
  CHECK (!is_concat (abc_url));
  CHECK (!is_concat (none_url));
}

◆ TEST_CASE() [8/17]

TEST_CASE ( "suffix/basename" )

Definition at line 135 of file url_test.cpp.

                              {
  SUBCASE ("empty suffix") {
    url no_suffix= url ("/a/b/c/d/no_suffix");
    CHECK (is_empty (suffix (no_suffix)));
    string_eq (basename (no_suffix), "no_suffix");
 
    url no_suffix2= url ("/a/b.c/d/no_suffix");
    CHECK (is_empty (suffix (no_suffix2)));
    string_eq (basename (no_suffix2), "no_suffix");
  }
 
  SUBCASE ("normal suffix") {
    url png= url ("/a/b/c/d.png");
    url PNG= url ("/a/b/c/d.PNG");
    string_eq (suffix (png), "png");
    string_eq (suffix (PNG), "png");
    string_eq (suffix (PNG, false), "PNG");
    string_eq (basename (png), "d");
    string_eq (basename (PNG), "d");
 
    url png2= url ("/a/b.c/d.png");
    string_eq (suffix (png2), "png");
  }
 
  SUBCASE ("normal http url") {
    url png= url ("https://name.com/path/to.png");
    string_eq (suffix (png), "png");
    string_eq (basename (png), "to");
 
    url jpg= url ("https://name.org/path/to.jpg");
    string_eq (suffix (jpg), "jpg");
    string_eq (basename (jpg), "to");
  }
 
  SUBCASE ("http url with paramters") {
    url jpg= url ("https://name.cn/path/to.jpg?width=100");
    string_eq (suffix (jpg), "jpg");
    string_eq (basename (jpg), "to");
  }
}

◆ TEST_CASE() [9/17]

TEST_CASE ( "as_string" )

Definition at line 176 of file url_test.cpp.

                        {
  set_env ("TEST_PWD", as_string (url_pwd ()));
  url file_env_lua = url_system ("file:///$TEST_PWD/xmake.lua");
  url local_env_lua= url_system ("local:$TEST_PWD/xmake.lua");
  url dirs         = url ("Data") | url ("Kernel") | url ("Plugins");
  string_eq (as_string (dirs), string ("Data") * URL_SEPARATOR * "Kernel" *
                                   URL_SEPARATOR * "Plugins");
 
  SUBCASE ("is_atomic") {
    string_eq (as_string (url_here ()), string ("."));
    string_eq (as_string (url_parent ()), string (".."));
    string_eq (as_string (url_ancestor ()), string ("..."));
  }
 
  SUBCASE ("tree with empty string") {
    string_eq (as_string (url ("")), "");
    string_eq (as_string (url ("a") * url ("")), string ("a") * URL_CONCATER);
  }
 
#if defined(OS_MINGW) || defined(OS_WIN)
  SUBCASE ("on host windows") {
    url app_mogan= url_system ("$ProgramFiles\\Mogan");
    string_eq (as_string (app_mogan), string ("C:\\Program Files\\Mogan"));
    string_eq (as_string (file_env_lua),
               "file:///" * as_string (url_pwd () * "xmake.lua"));
    string_eq (as_string (local_env_lua),
               "file:///" * as_string (url_pwd () * "xmake.lua"));
  }
#endif
#if defined(OS_MACOS) || defined(OS_LINUX) || defined(OS_WASM)
  SUBCASE ("on linux/macos/wasm") {
    string_eq (as_string (file_env_lua),
               "file://" * as_string (url_pwd () * "xmake.lua"));
    string_eq (as_string (local_env_lua),
               "file://" * as_string (url_pwd () * "xmake.lua"));
  }
#endif
}

◆ TEST_CASE() [10/17]

TEST_CASE ( "unknown protocol like zotero" )

Definition at line 215 of file url_test.cpp.

                                           {
  url zotero_u= url_system ("zotero://select/library/items/2AIFJFS7");
  string_eq (zotero_u.protocol (), "zotero");
  CHECK (!is_or (zotero_u));
 
  url tmfs_u= url_system ("tmfs://git/status");
  string_eq (tmfs_u.protocol (), "tmfs");
  CHECK (!is_or (tmfs_u));
 
  url c_u= url_system ("C://Program Files/MoganResearch");
  string_neq (c_u.protocol (), "C");
}

◆ TEST_CASE() [11/17]

TEST_CASE ( "relative" )

Definition at line 228 of file url_test.cpp.

                       {
  SUBCASE ("on macOS/Linux/wasm") {
    if (!os_win ()) {
      url_eq (relative ("/tmp", "a.txt"), url_system ("/a.txt"));
      url_eq (relative ("/tmp", "x/a.txt"), url_system ("/x/a.txt"));
      url_eq (relative ("/tmp", "x/y/a.txt"), url_system ("/x/y/a.txt"));
      url_eq (relative ("/tmp", "/a.txt"), url_system ("/a.txt"));
      url_eq (relative ("/tmp", "/tmp/a.txt"), url_system ("/tmp/a.txt"));
      url_eq (relative ("/tmp", "/x/y/z/a.txt"), url_system ("/x/y/z/a.txt"));
      url_eq (relative ("/tmp/b.txt", "a.txt"), url_system ("/tmp/a.txt"));
      url_eq (relative (url_none (), url_none ()), url_none ());
      url_eq (relative ("/tmp", url_none ()), url_none ());
      url_eq (relative (url_none (), "a.txt"), url_none ());
      url_eq (relative (url_none (), "/tmp/a.txt"), url ("/tmp/a.txt"));
    }
  }
}

◆ TEST_CASE() [12/17]

TEST_CASE ( "delta" )

Definition at line 246 of file url_test.cpp.

                    {
  SUBCASE ("on macOS/Linux/wasm") {
    if (!os_win ()) {
      url_eq (delta ("/tmp", "/tmp/a.txt"), url ("tmp/a.txt"));
      url_eq (delta ("/tmp", "/tmp/x/a.txt"), url ("tmp/x/a.txt"));
      url_eq (delta ("/tmp", "/x/a.txt"), url ("x/a.txt"));
      url_eq (delta ("/tmp", url_none ()), url_none ());
      url_eq (delta (url_none (), "/tmp/a.txt"), url ("/tmp/a.txt"));
      url_eq (delta (url_none (), url_none ()), url_none ());
    }
  }
}

◆ TEST_CASE() [13/17]

TEST_CASE ( "url_concat" )

Definition at line 259 of file url_test.cpp.

                         {
  url_eq (url ("a") * url ("b"), url_system ("a/b"));
  url_eq (url_root ("file") * url ("tmp"), url_system ("file:///tmp"));
}

◆ TEST_CASE() [14/17]

TEST_CASE ( "expand" )

Definition at line 264 of file url_test.cpp.

                     {
  if (!os_win ()) {
    url tmp_or_usr= url ("/tmp") | url ("/usr");
    url_eq (expand (url_pwd () * tmp_or_usr), tmp_or_usr);
  }
}

◆ TEST_CASE() [15/17]

TEST_CASE ( "reroot" )

Definition at line 271 of file url_test.cpp.

                     {
  CHECK (!is_rooted (reroot (url_system ("tmp"), "file")));
  CHECK (is_rooted (reroot (url_pwd (), "file")));
}

◆ TEST_CASE() [16/17]

TEST_CASE ( "descends" )

Definition at line 276 of file url_test.cpp.

                       {
  SUBCASE ("u == base") {
    CHECK (descends (ustc_edu, ustc_edu));
    CHECK (descends (texmacs_org, texmacs_org));
    CHECK (descends (none_url, none_url));
    CHECK (descends (file_root, file_root));
    CHECK (descends (file_tmp, file_tmp));
    CHECK (descends (ftp_root, ftp_root));
    CHECK (descends (wsl_ubuntu, wsl_ubuntu));
    CHECK (descends (unix_root, unix_root));
    CHECK (descends (unix_root_txt, unix_root_txt));
    CHECK (descends (unix_tmp_a, unix_tmp_a));
    CHECK (descends (abc_url, abc_url));
  }
  SUBCASE ("u is concat, base is atomic") {
    CHECK (!descends (url ("./a/b/c"), url (".")));
    CHECK (descends (url ("../a/b/c"), url ("..")));
    CHECK (descends (url (".../a/b/c"), url ("...")));
  }
  SUBCASE ("u is concat, base is concat") {
    CHECK (descends (url ("a/b/c"), url ("a/b")));
    CHECK (!descends (url ("a/b/c"), url ("a/b/")));
    CHECK (descends (url ("a/b"), url ("a")));
    CHECK (!descends (url ("a/b"), url ("a/")));
  }
  SUBCASE ("u or base is url_or") {
    CHECK (descends (url_unix ("a:b"), url_unix ("a:b")));
    CHECK (descends (url_unix ("a"), url_unix ("a:b")));
    CHECK (descends (url_unix ("b"), url_unix ("a:b")));
    CHECK (!descends (url_unix ("a:b"), url_unix ("a")));
    CHECK (!descends (url_unix ("a:b"), url_unix ("b")));
  }
}

◆ TEST_CASE() [17/17]

TEST_CASE ( "is_atomic" )

Definition at line 310 of file url_test.cpp.

                        {
  CHECK (is_atomic (url_here ()));
  CHECK (is_atomic (url_parent ()));
  CHECK (is_atomic (url_ancestor ()));
 
  CHECK (is_atomic (url ("")));
 
  CHECK (!is_atomic (ustc_edu));
  CHECK (!is_atomic (url_none ()));
  SUBCASE ("unix") {
    if (!os_win ()) {
      CHECK (!is_atomic (unix_root));
      CHECK (!is_atomic (unix_tmp));
    }
  }
}

Variable Documentation

◆ ustc_edu

url ustc_edu = url_system ("https://ustc.edu.cn")

Definition at line 11 of file url_test.cpp.

◆ texmacs_org

url texmacs_org = url_system ("http://texmacs.org")

Definition at line 12 of file url_test.cpp.

◆ none_url

url none_url = url_none ()

Definition at line 13 of file url_test.cpp.

◆ file_root

url file_root = url_root ("file")

Definition at line 14 of file url_test.cpp.

◆ file_tmp

url file_tmp = url_system ("file:///tmp")

Definition at line 15 of file url_test.cpp.

◆ ftp_root

url ftp_root = url_root ("ftp")

Definition at line 16 of file url_test.cpp.

◆ wsl_ubuntu

url wsl_ubuntu = url_system ("\\\\wsl.localhost\\Ubuntu")

Definition at line 17 of file url_test.cpp.

◆ unix_root

url unix_root = url_system ("/")

Definition at line 18 of file url_test.cpp.

◆ unix_root_txt

url unix_root_txt = url_system ("/abc.txt")

Definition at line 19 of file url_test.cpp.

◆ unix_tmp

url unix_tmp = url_system ("/tmp")

Definition at line 20 of file url_test.cpp.

◆ unix_tmp_a

url unix_tmp_a = url_system ("/tmp/a")

Definition at line 21 of file url_test.cpp.

◆ abc_url

url abc_url = url_system ("abc")

Definition at line 22 of file url_test.cpp.

Functions

Variables