t_checkup.cpp

Go to the documentation of this file.

/*****************************************************************************\
*                                                                             *
*  Name   : test_checkup                                                      *
*  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                               *
\*****************************************************************************/

#include "checkup.h"

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

#include <stdio.h>

using namespace portable;
using namespace system_checkup;

class checkup_on_OS : public application_shell
{
public:
  checkup_on_OS() : application_shell(static_class_name()) {}
  IMPLEMENT_CLASS_NAME("checkup_on_OS");
  virtual int execute();
};

class burpee
{
public:
  burpee() : my_string(new istring) { *my_string = "balrog"; }
  virtual ~burpee() {
    WHACK(my_string);
    if (my_string) deadly_error("burpee", "whack test", "whack failed");
  }

private:
  istring *my_string;
};


class florba : public burpee
{
public:
  florba() : burpee(), second_string(new istring)
      { *second_string = "loquacious"; }
  virtual ~florba() {
    WHACK(second_string); 
    if (second_string) deadly_error("florba", "whack test", "whack failed");
  }

private:
  istring *second_string;
};


struct testing_file_struct : public FILE {};

// NOTE: an important part of this test program is running it under something
// like boundschecker to ensure that there are no memory leaks caused by
// invoking WHACK.  apparently diab 3 is unable to implement WHACK correctly.

int checkup_on_OS::execute()
{
  // let's see what this system is called.
  log(istring("The name of this software system is: ")
      + software_product_name());

  // and what this program is called.
  log(istring("The application is called: ") + portable::application_name());

  // turn the "if 0" into "if 1" below if you want to test scoping.
#if 0
  //testing new compiler's ansi c++ compliance.
  for (int q = 0; q < 19823; q++) {
    int treno = q;
    int malfoy = treno * 3;
    log(isprintf("%d", malfoy));
  }
  //this should be an error.  the scope of q should be within the loop and
  //not outside of it.
  if (q > 19824) {
    log("some kind of weirdness happened.");
  }
  //end test.
#endif

  // test that the WHACK function operates properly.
  burpee *chunko = new burpee;
  florba *lorkas = new florba;
  burpee *alias = lorkas;

  WHACK(chunko);
  WHACK(alias);
  if (chunko) deadly_error("chunko", "whack test", "whack failed");
  if (alias) deadly_error("lorkas", "whack test", "whack failed");

  if (sizeof(testing_file_struct) != sizeof(FILE))
    deadly_error("test_checkup", "struct size test",
        "sizeof testing_file_struct and sizeof FILE differ");

  // now do the crucial tests on the OS, platform, compiler, etc.
  istring message;
  if (check_system_characteristics())
    message = istring(class_name()) + ":: the required characteristics "
        "seem present.";
  else
    message = istring(class_name()) + ":: at least one required "
        "characteristic is absent!!";

#ifdef __WIN32__
  known_operating_systems os = determine_OS();
  if (os == WIN_95)
    printf("This is windows 95.\n");
  else if (os == WIN_NT)
    printf("This is windows NT.\n");
  else if (os == WIN_2K)
    printf("This is windows 2000.\n");
  else if (os == WIN_XP)
    printf("This is windows XP.\n");
  else 
    printf("This OS is unknown.\n");
#endif

  version os_ver = portable::get_OS_version();
  printf("The stated OS version number is: %s\n", os_ver.text_form().s());

  guards::alert_message(message.s());
  return 0;
}

HOOPLE_MAIN(checkup_on_OS, )

---