Add comprehensive tests for github.rkt module

Co-authored-by: jackfirth <[email protected]>

Author: Copilot

coverage/assets/app.js

@@ -0,0 +1,67 @@
+window.onload = function() {
+
+  var extractDataFromRow = function(tr, className) {
+    var td = tr.querySelector('td.' + className);
+    var a = td.querySelector('a');
+    if (a) {
+      return a.innerHTML;
+    } else {
+      return td.innerHTML;
+    }
+  };
+
+  var removeRows = function(table, rows) {
+    for (var i = 0; i < rows.length; i++) {
+      table.removeChild(rows[i]);
+    }
+  };
+
+  var sortTable = function(className, compare) {
+    var table = document.querySelector('table.file-list tbody');
+    var rows = Array.prototype.slice.call(table.querySelectorAll('tr'), 0);
+    removeRows(table, rows);
+
+    rows.sort(function(a, b) {
+      var aActual = extractDataFromRow(a, className);
+      var bActual = extractDataFromRow(b, className);
+      return compare(aActual, bActual);
+    });
+    for (var i = 0; i < rows.length; i++) {
+      rows[i].className = 'file-info' + (((i % 2) == 0) ? ' stripe' : '');
+      table.appendChild(rows[i]);
+    }
+  };
+
+  var oppositeArrowDirection = function(dir) {
+    if (dir === 'up') {
+      return 'down';
+    } else {
+      return 'up';
+    }
+  };
+
+  var createSorter = function(className, arrowDirection, compare, negativeCompare) {
+    var sortClass = 'th.' + className + ' div.sort-icon-' + arrowDirection;
+    var element = document.querySelector(sortClass);
+    var clickHandler = function() {
+      var oppArrowDirection = oppositeArrowDirection(arrowDirection);
+      sortTable(className, compare);
+      element.removeEventListener('click', clickHandler);
+      element.className = 'sort-icon-' + oppArrowDirection;
+      createSorter(className, oppArrowDirection, negativeCompare, compare);
+    };
+    element.addEventListener('click', clickHandler);
+  };
+
+  var stringCompareAsc = function(a, b) { return a.localeCompare(b); };
+  var stringCompareDesc = function(a, b) { return b.localeCompare(a); };
+  var floatCompareAsc = function(a, b) { return parseFloat(a) - parseFloat(b); };
+  var floatCompareDesc = function(a, b) { return parseFloat(b) - parseFloat(a); };
+
+  createSorter('file-name', 'up', stringCompareDesc, stringCompareAsc);
+  createSorter('coverage-percentage', 'up', floatCompareAsc, floatCompareDesc);
+  createSorter('covered-expressions', 'up', floatCompareAsc, floatCompareDesc);
+  createSorter('uncovered-expressions', 'up', floatCompareAsc, floatCompareDesc);
+  createSorter('total-expressions', 'up', floatCompareAsc, floatCompareDesc);
+  sortTable('coverage-percentage', floatCompareAsc);
+};

coverage/assets/main.css

@@ -0,0 +1,106 @@
+.code {
+  display: table;
+  font-family: "Lucida Console", Monaco, monospace;
+}
+
+.uncovered {
+  color:red;
+}
+
+.covered {
+  color:green;
+}
+
+.total-coverage {
+  font-size: 2em;
+}
+
+.irrelevant {}
+
+table.file-list {
+  width: 100%;
+  border-collapse: collapse;
+}
+
+td, th {
+  text-align: center;
+  padding: 10px 10px;
+  border-bottom: 1px solid;
+  font-size: 1.2em;
+}
+
+td.file-name, th.file-name {
+  text-align: left;
+}
+
+td a, td a:visited {
+  text-decoration: none;
+  color: #07A;
+}
+
+tr.stripe, :target {
+  background-color: #F5F5EC;
+}
+
+div.report-container {
+  width: 60%;
+  margin: 0 20%;
+}
+
+.file-info div {
+  display: inline-block;
+  margin-bottom: 1em;
+  padding-right: 2em;
+}
+
+div.line-numbers {
+  display: table-cell;
+  padding-right: 1em;
+  text-align: right;
+}
+
+.line-numbers a {
+  color: black;
+  text-decoration: none;
+}
+
+.line-numbers a:hover {
+  color: blue;
+  text-decoration: underline;
+}
+
+div.file-lines {
+  display: table-cell;
+}
+
+div.lines-wrapper {
+  display: table-row;
+}
+
+/* Sorting Triangles */
+
+.sort-icon-up {
+  cursor: pointer;
+  display: inline-block;
+  margin-left: 0.5em;
+  margin-bottom: 0.2em;
+
+  width: 0px;
+  height: 0px;
+  border-left: 0.3em solid transparent;
+  border-right: 0.3em solid transparent;
+  border-bottom: 0.3em solid black;
+}
+
+.sort-icon-down {
+  cursor: pointer;
+  display: inline-block;
+  margin-left: 0.5em;
+  margin-bottom: 0.2em;
+
+  width: 0px;
+  height: 0px;
+  border-left: 0.3em solid transparent;
+  border-right: 0.3em solid transparent;
+  border-top: 0.3em solid black;
+}

coverage/base.html

@@ -0,0 +1 @@
+<html><head><meta charset="utf-8"/><link rel="stylesheet" type="text/css" href="../../assets/main.css"/></head><body><p>expr: 100%<br/></p><div class="code"><div class="lines-wrapper"><div class="line-numbers"><div><a href="#1">1</a></div><div><a href="#2">2</a></div><div><a href="#3">3</a></div><div><a href="#4">4</a></div><div><a href="#5">5</a></div><div><a href="#6">6</a></div><div><a href="#7">7</a></div><div><a href="#8">8</a></div><div><a href="#9">9</a></div><div><a href="#10">10</a></div><div><a href="#11">11</a></div><div><a href="#12">12</a></div><div><a href="#13">13</a></div><div><a href="#14">14</a></div><div><a href="#15">15</a></div><div><a href="#16">16</a></div><div><a href="#17">17</a></div><div><a href="#18">18</a></div><div><a href="#19">19</a></div><div><a href="#20">20</a></div><div><a href="#21">21</a></div><div><a href="#22">22</a></div><div><a href="#23">23</a></div><div><a href="#24">24</a></div><div><a href="#25">25</a></div><div><a href="#26">26</a></div><div><a href="#27">27</a></div></div><div class="file-lines"><div class="line" id="1"><span class="irrelevant">#lang</span>&nbsp;<span class="irrelevant">resyntax/test</span></div><br id="2"/><br id="3"/><div class="line" id="4"><span class="covered">require:</span>&nbsp;<span class="covered">resyntax/default-recommendations/analyzers/function-expression-analyzer</span>&nbsp;<span class="covered">function-expression-analyzer</span></div><div class="line" id="5"><span class="covered">header:</span>&nbsp;<span class="covered">-</span>&nbsp;<span class="covered">#lang</span>&nbsp;<span class="covered">racket/base</span></div><br id="6"/><br id="7"/><div class="line" id="8"><span class="covered">analysis-test:</span>&nbsp;<span class="covered">"applied</span>&nbsp;<span class="covered">functions</span>&nbsp;<span class="covered">should</span>&nbsp;<span class="covered">be</span>&nbsp;<span class="covered">annotated"</span></div><div class="line" id="9"><span class="covered">--------------------</span></div><div class="line" id="10"><span class="covered">(define</span>&nbsp;<span class="covered">(f)</span></div><div class="line" id="11">&nbsp;&nbsp;<span class="covered">(list</span>&nbsp;<span class="covered">1</span>&nbsp;<span class="covered">2</span>&nbsp;<span class="covered">3))</span></div><div class="line" id="12"><span class="covered">--------------------</span></div><div class="line" id="13"><span class="covered">@within</span>&nbsp;<span class="covered">-</span>&nbsp;<span class="covered">(list</span>&nbsp;<span class="covered">1</span>&nbsp;<span class="covered">2</span>&nbsp;<span class="covered">3)</span></div><div class="line" id="14"><span class="covered">@inspect</span>&nbsp;<span class="covered">-</span>&nbsp;<span class="covered">list</span></div><div class="line" id="15"><span class="covered">@property</span>&nbsp;<span class="covered">application-subexpression-kind</span></div><div class="line" id="16"><span class="covered">@assert</span>&nbsp;<span class="covered">function</span></div><br id="17"/><br id="18"/><div class="line" id="19"><span class="covered">analysis-test:</span>&nbsp;<span class="covered">"applied</span>&nbsp;<span class="covered">function</span>&nbsp;<span class="covered">arguments</span>&nbsp;<span class="covered">should</span>&nbsp;<span class="covered">be</span>&nbsp;<span class="covered">annotated"</span></div><div class="line" id="20"><span class="covered">--------------------</span></div><div class="line" id="21"><span class="covered">(define</span>&nbsp;<span class="covered">(f</span>&nbsp;<span class="covered">x</span>&nbsp;<span class="covered">y</span>&nbsp;<span class="covered">z)</span></div><div class="line" id="22">&nbsp;&nbsp;<span class="covered">(list</span>&nbsp;<span class="covered">x</span>&nbsp;<span class="covered">y</span>&nbsp;<span class="covered">z))</span></div><div class="line" id="23"><span class="covered">--------------------</span></div><div class="line" id="24"><span class="covered">@within</span>&nbsp;<span class="covered">-</span>&nbsp;<span class="covered">(list</span>&nbsp;<span class="covered">x</span>&nbsp;<span class="covered">y</span>&nbsp;<span class="covered">z)</span></div><div class="line" id="25"><span class="covered">@inspect</span>&nbsp;<span class="covered">-</span>&nbsp;<span class="covered">y</span></div><div class="line" id="26"><span class="covered">@property</span>&nbsp;<span class="covered">application-subexpression-kind</span></div><div class="line" id="27"><span class="covered">@assert</span>&nbsp;<span class="covered">argument</span></div></div></div></div></body></html>