siac: test for another accessibility failure

scripts/38-siac.sh

@@ -1,5 +1,10 @@
 #!/bin/bash
 
+fail=0;
+
+
+# Test 1: check alt's
+#
 # This would be easier if hxremove 7.9 would have been released already.
 # What we're looking for is <a> without text or with images only whose alt text
 # is empty.
@@ -13,7 +18,6 @@
 # - appending the alt text of any images in <a> bodies
 # - remove the images from <a> bodies
 # - if what's left has any text, it should be ok
-
 if curl -L https://www.siac.vet |
 		hxclean |
 		tr '\n' ' ' |
@@ -23,6 +27,21 @@ if curl -L https://www.siac.vet |
 		done |
 		hxremove 'img' |
 		grep "^\s*$" > /dev/null; then
+	echo "failed on the alts check";
+	fail=1;
+fi
+
+# Test 2: check G1: Add a link at the top of each page to directly access the main content area
+#
+# This isn't a great test we're writting, but it at least validates if the first link points to an anchor somewhere:
+if [ "$(curl -L https://www.siac.vet | hxclean |hxselect a|head -n1|sed -n 's/.*href="\([^"]*\).*/\1/p'|grep -c \#)" = 0 ]; then
+	echo "failed on the G1 check";
+	fail=2;
+fi
+
+if [ "$fail" = 0 ]; then
+	echo "siac: incumprimento pode já não existir";
+else
 	echo "siac: Incumprimento mantém-se, a actualizar o README (faça um git diff, valide, e commit!)";
 	while IFS='' read -r line || [[ -n "$line" ]]; do
 		test "$(echo "$line"|grep -v -c "siac")" -eq "1" \
@@ -30,6 +49,4 @@ if curl -L https://www.siac.vet |
 			|| (h=$(echo "$line"|cut -d\| -f1-4); t=$(echo "$line"|cut -d\| -f6-); echo "$h| $(date +%Y/%m/%d) |$t");
 	done < README.md > new
 	mv new README.md
-else
-	echo "siac: incumprimento pode já não existir (1)";
 fi