t_filename.cpp

Go to the documentation of this file.

/*****************************************************************************\
*                                                                             *
*  Name   : test_filename                                                     *
*  Author : Chris Koeritz                                                     *
*                                                                             *
*******************************************************************************
* Copyright (c) 1993-$now By Author.  This program is free software; you can  *
* redistribute it and/or modify it under the terms of the GNU General Public  *
* License as published by the Free Software Foundation; either version 2 of   *
* the License or (at your option) any later version.  This is online at:      *
*     http://www.fsf.org/copyleft/gpl.html                                    *
* Please send any updates to: fred@gruntose.com                               *
\*****************************************************************************/

#define DEBUG_FILENAME_TEST

#include <basis/function.h>
#include <basis/guards.h>
#include <basis/istring.h>
#include <basis/string_array.h>
#include <opsystem/application_shell.h>
#include <loggers/console_logger.h>
#include <opsystem/filename.h>
#include <data_struct/static_memory_gremlin.h>

class test_filename : public application_shell
{
public:
  test_filename() : application_shell(class_name()) {}
  IMPLEMENT_CLASS_NAME("test_filename");
  virtual int execute();
  void clean_sequel(istring &sequel);
};

void test_filename::clean_sequel(istring &sequel)
{ sequel.replace_all('\\', '/'); }

int test_filename::execute()
{
  {
    // first test group.
    const char *GROUP = "first: test exists";
    filename gorgeola("");
    if (gorgeola.exists())
      deadly_error(class_name(), GROUP, "an empty filename exists??");
  }

  {
    // second test group.
    const char *GROUP = "second: test separate";
    filename turkey("/omega/ralph/turkey/buzzard.txt");
    string_array pieces;
    turkey.separate(pieces);
    if (pieces[1] != "omega")
      deadly_error(class_name(), GROUP, "the first piece didn't match.");
    if (pieces[2] != "ralph")
      deadly_error(class_name(), GROUP, "the second piece didn't match.");
    if (pieces[3] != "turkey")
      deadly_error(class_name(), GROUP, "the third piece didn't match.");
    if (pieces[4] != "buzzard.txt")
      deadly_error(class_name(), GROUP, "the fourth piece didn't match.");
    if (pieces.length() != 5)
      deadly_error(class_name(), GROUP, "the list was the wrong length");
  }

  {
    // third test group.
    const char *GROUP = "third: test compare_prefix";
    filename turkey("/omega/ralph/turkey/buzzard.txt");
    filename murpin1("/omega");
    filename murpin2("/omega/ralph");
    filename murpin3("/omega/ralph/turkey");
    filename murpin4("/omega/ralph/turkey/buzzard.txt");
    filename murpin_x1("ralph/turkey/buzzard.txt");
    filename murpin_x2("/omega/ralph/turkey/buzzard.txt2");
    filename murpin_x3("/omega/turkey/buzzard.txt");
    filename murpin_x4("/omega/ralph/turkey/b0/buzzard.txt");
    filename murpin_x5("moomega/ralph/turkey");

    istring sequel;
    if (!murpin1.compare_prefix(turkey, sequel))
      deadly_error(class_name(), GROUP, "first should match but didn't");
    clean_sequel(sequel);
    if (sequel != "ralph/turkey/buzzard.txt")
      deadly_error(class_name(), GROUP, "first sequel was wrong");
    if (!murpin2.compare_prefix(turkey, sequel))
      deadly_error(class_name(), GROUP, "second should match but didn't");
    clean_sequel(sequel);
    if (sequel != "turkey/buzzard.txt")
      deadly_error(class_name(), GROUP, "second sequel was wrong");
    if (!murpin3.compare_prefix(turkey, sequel))
      deadly_error(class_name(), GROUP, "third should match but didn't");
    clean_sequel(sequel);
    if (sequel != "buzzard.txt")
      deadly_error(class_name(), GROUP, "third sequel was wrong");
    if (!murpin4.compare_prefix(turkey, sequel))
      deadly_error(class_name(), GROUP, "fourth should match but didn't");
    if (sequel.t())
      deadly_error(class_name(), GROUP, "fourth had a sequel but shouldn't");

    if (murpin_x1.compare_prefix(turkey, sequel))
      deadly_error(class_name(), GROUP, "x-first should not match but did");
    if (sequel.t())
      deadly_error(class_name(), GROUP, "x-first had a sequel but shouldn't");
    if (murpin_x2.compare_prefix(turkey, sequel))
      deadly_error(class_name(), GROUP, "x-second should not match but did");
    if (sequel.t())
      deadly_error(class_name(), GROUP, "x-second had a sequel but shouldn't");
    if (murpin_x3.compare_prefix(turkey, sequel))
      deadly_error(class_name(), GROUP, "x-third should not match but did");
    if (sequel.t())
      deadly_error(class_name(), GROUP, "x-third had a sequel but shouldn't");
    if (murpin_x4.compare_prefix(turkey, sequel))
      deadly_error(class_name(), GROUP, "x-fourth should not match but did");
    if (sequel.t())
      deadly_error(class_name(), GROUP, "x-fourth had a sequel but shouldn't");
    if (murpin_x5.compare_prefix(turkey, sequel))
      deadly_error(class_name(), GROUP, "x-fifth should not match but did");
    if (sequel.t())
      deadly_error(class_name(), GROUP, "x-fifth had a sequel but shouldn't");

    // check that the functions returning no sequel are still correct.
    if (!murpin1.compare_prefix(turkey))
      deadly_error(class_name(), GROUP, "the two versions differed!");
    if (murpin_x1.compare_prefix(turkey))
      deadly_error(class_name(), GROUP, "x-the two versions differed!");
  }

  {
    // fourth test group.
    const char *GROUP = "fourth: test compare_suffix";
    filename turkey("/omega/ralph/turkey/buzzard.txt");
    filename murpin1("turkey\\buzzard.txt");
    filename murpin2("turkey/buzzard.txt");
    filename murpin3("ralph/turkey/buzzard.txt");
    filename murpin4("omega/ralph/turkey/buzzard.txt");
    filename murpin5("/omega/ralph/turkey/buzzard.txt");

    if (!murpin1.compare_suffix(turkey))
      deadly_error(class_name(), GROUP, "compare 1 failed");
    if (!murpin2.compare_suffix(turkey))
      deadly_error(class_name(), GROUP, "compare 2 failed");
    if (!murpin3.compare_suffix(turkey))
      deadly_error(class_name(), GROUP, "compare 3 failed");
    if (!murpin4.compare_suffix(turkey))
      deadly_error(class_name(), GROUP, "compare 4 failed");
    if (!murpin5.compare_suffix(turkey))
      deadly_error(class_name(), GROUP, "compare 5 failed");

    if (turkey.compare_suffix(murpin1))
      deadly_error(class_name(), GROUP, "compare x.1 failed");
  }

  {
    // fifth test group.
    // tests out the canonicalization method on any parameters given on
    // the command line, including the program name.
    const char *GROUP = "fifth: canonicalize command-line paths";
    log(GROUP);
    for (int i = 0; i < __argc; i++) {
      filename canony(__argv[i]);
      log(isprintf("parm %d:\n\tfrom \"%s\"\n\t  to \"%s\"", i, __argv[i],
          canony.raw().s()));
    }
  }

  {
    // sixth test group.
    const char *GROUP = "sixth: testing pop and push";
    // test dossy paths.
    filename test1("c:/flug/blumen/klemper/smooden");
    if (test1.basename() != istring("smooden"))
      deadly_error(class_name(), GROUP, "basename 1 failed");
    if (test1.dirname() != filename("c:/flug/blumen/klemper"))
      deadly_error(class_name(), GROUP, "d-dirname 1 failed");
    filename test2 = test1;
    istring popped = test2.pop();
    if (popped != istring("smooden"))
      deadly_error(class_name(), GROUP, "dpop 1 return failed");
    if (test2 != filename("c:/flug/blumen/klemper"))
      deadly_error(class_name(), GROUP, "dpop 1 failed");
    test2.pop();
    test2.pop();
    if (test2 != filename("c:/flug"))
      deadly_error(class_name(), GROUP, "dpop 2 failed");
    popped = test2.pop();
    if (popped != istring("flug"))
      deadly_error(class_name(), GROUP, "dpop 1 return failed");
    if (test2 != filename("c:/"))
      deadly_error(class_name(), GROUP, "dpop 3 failed");
    test2.pop();
    if (test2 != filename("c:/"))
      deadly_error(class_name(), GROUP, "dpop 3 failed");
    test2.push("flug");
    test2.push("blumen");
    test2.push("klemper");
    if (test2 != filename("c:/flug/blumen/klemper"))
      deadly_error(class_name(), GROUP, "dpush 1 failed");
    // test unix paths.
    filename test3("/flug/blumen/klemper/smooden");
    if (test3.basename() != istring("smooden"))
      deadly_error(class_name(), GROUP, "basename 1 failed");
    if (test3.dirname() != filename("/flug/blumen/klemper"))
      deadly_error(class_name(), GROUP, "u-dirname 1 failed");
    filename test4 = test3;
    popped = test4.pop();
    if (popped != istring("smooden"))
      deadly_error(class_name(), GROUP, "upop 1 return failed");
    if (test4 != filename("/flug/blumen/klemper"))
      deadly_error(class_name(), GROUP, "upop 1 failed");
    test4.pop();
    test4.pop();
    if (test4 != filename("/flug"))
      deadly_error(class_name(), GROUP, "upop 2 failed");
    popped = test4.pop();
    if (popped != istring("flug"))
      deadly_error(class_name(), GROUP, "upop 1 return failed");
    if (test4 != filename("/"))
      deadly_error(class_name(), GROUP, "upop 3 failed");
    test4.pop();
    if (test4 != filename("/"))
      deadly_error(class_name(), GROUP, "upop 3 failed");
    test4.push("flug");
    test4.push("blumen");
    test4.push("klemper");
    if (test4 != filename("/flug/blumen/klemper"))
      deadly_error(class_name(), GROUP, "upush 1 failed");
  }

  istring to_print("filename:: works for those functions tested.");
  guards::alert_message(to_print.s());
  return 0;
}

HOOPLE_MAIN(test_filename, )

---