CheckInstall.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      3854,        102]
NotebookOptionsPosition[      3559,         88]
NotebookOutlinePosition[      3894,        103]
CellTagsIndexPosition[      3851,        100]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"(*", " ", 
    RowBox[{
    "This", " ", "script", " ", "test", " ", "whether", " ", "or", " ", "NOT",
      " ", "the", " ", "companion", " ", "packages", " ", "was", " ", 
     "properly", " ", "installed"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Delete", " ", "All", " ", "Output"}], ";"}], 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"listOfCompanionPackages", " ", "=", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<HopFibrationFunctions`\>\"", ",", 
        "\"\<PerformanceMetricFunctions`\>\""}], "}"}]}], ";"}], 
    "\[IndentingNewLine]", 
    RowBox[{"installedPackages", " ", "=", " ", "$Packages"}], 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"checkToken", " ", "=", " ", 
      RowBox[{"Table", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Count", "[", 
             RowBox[{
              RowBox[{"StringMatchQ", "[", 
               RowBox[{"installedPackages", ",", 
                RowBox[{"listOfCompanionPackages", "[", 
                 RowBox[{"[", "c", "]"}], "]"}]}], "]"}], ",", "True"}], 
             "]"}], " ", ">", " ", "0"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"StringForm", "[", 
             RowBox[{
             "\"\<The `` package was successfully installed !\>\"", ",", 
              RowBox[{"listOfCompanionPackages", "[", 
               RowBox[{"[", "c", "]"}], "]"}]}], "]"}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"StringForm", "[", 
             RowBox[{"\"\<The `` package was NOT installed !\>\"", ",", 
              RowBox[{"listOfCompanionPackages", "[", 
               RowBox[{"[", "c", "]"}], "]"}]}], "]"}], "]"}]}], 
          "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"c", ",", "1", ",", 
          RowBox[{"Length", "[", "listOfCompanionPackages", "]"}]}], "}"}]}], 
       "\[IndentingNewLine]", "]"}]}], ";"}]}]}],
  FontSize->16,
  FontWeight->"Bold"]], "Input",
 CellChangeTimes->{{3.712484635235574*^9, 3.712484658276265*^9}, {
   3.712484752023148*^9, 3.712484874742869*^9}, {3.712485043542904*^9, 
   3.7124850503020163`*^9}, {3.7124850916757727`*^9, 3.712485348920766*^9}, {
   3.71248554262859*^9, 3.712485554961535*^9}, {3.71248558909962*^9, 
   3.712485883814892*^9}, {3.71248597223512*^9, 3.712486028046447*^9}, {
   3.7124860662635717`*^9, 3.7124861511856194`*^9}, {3.7124861837475452`*^9, 
   3.7124862047412157`*^9}, {3.712486237308576*^9, 3.712486253796331*^9}, {
   3.7124863576102047`*^9, 3.712486479053495*^9}, {3.7124987989639187`*^9, 
   3.712498799496456*^9}, {3.712498845114962*^9, 3.712498858215411*^9}, 
   3.712498953080772*^9},ExpressionUUID->"cea075cd-b92a-4400-87fa-\
198bf24cd1f3"]
},
WindowSize->{1853, 1028},
WindowMargins->{{0, Automatic}, {0, Automatic}},
FrontEndVersion->"11.1 for Linux x86 (64-bit) (April 18, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 2997, 66, 373, "Input", "ExpressionUUID" -> \
"cea075cd-b92a-4400-87fa-198bf24cd1f3"]
}
]
*)