-
Notifications
You must be signed in to change notification settings - Fork 0
/
CheckInstall.nb
110 lines (104 loc) · 3.92 KB
/
CheckInstall.nb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
(* 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"]
}
]
*)