Add check for dead URL in library.properties url field

Author: per1234

check/checkconfigurations/checkconfigurations.go

@@ -146,6 +146,21 @@ var configurations = []Type{
 		ErrorModes:      []checkmode.Type{checkmode.All},
 		CheckFunction:   checkfunctions.LibraryPropertiesVersionFieldMissing,
 	},
+	{
+		ProjectType:     projecttype.Library,
+		Category:        "library.properties",
+		Subcategory:     "url field",
+		ID:              "",
+		Brief:           "Dead URL",
+		Description:     "",
+		MessageTemplate: "Unable to load the library.properties url field: {{.}}",
+		DisableModes:    nil,
+		EnableModes:     []checkmode.Type{checkmode.All},
+		InfoModes:       nil,
+		WarningModes:    []checkmode.Type{checkmode.All},
+		ErrorModes:      nil,
+		CheckFunction:   checkfunctions.LibraryPropertiesUrlFieldDeadLink,
+	},
 	{
 		ProjectType:     projecttype.Library,
 		Category:        "library.properties",

check/checkfunctions/library.go

@@ -18,6 +18,7 @@ package checkfunctions
 // The check functions for libraries.
 
 import (
+	"net/http"
 	"strings"
 
 	"github.com/arduino/arduino-check/check/checkdata"
@@ -110,6 +111,30 @@ func LibraryPropertiesVersionFieldMissing() (result checkresult.Type, output str
 	return checkresult.Pass, ""
 }
 
+// LibraryPropertiesUrlFieldDeadLink checks whether the URL in the library.properties `url` field can be loaded.
+func LibraryPropertiesUrlFieldDeadLink() (result checkresult.Type, output string) {
+	if checkdata.LibraryPropertiesLoadError() != nil {
+		return checkresult.NotRun, ""
+	}
+
+	url, ok := checkdata.LibraryProperties().GetOk("url")
+	if !ok {
+		return checkresult.NotRun, ""
+	}
+
+	logrus.Tracef("Checking URL: %s", url)
+	httpResponse, err := http.Get(url)
+	if err != nil {
+		return checkresult.Fail, err.Error()
+	}
+
+	if httpResponse.StatusCode == http.StatusOK {
+		return checkresult.Pass, ""
+	}
+
+	return checkresult.Fail, httpResponse.Status
+}
+
 // LibraryPropertiesDependsFieldNotInIndex checks whether the libraries listed in the library.properties `depends` field are in the Library Manager index.
 func LibraryPropertiesDependsFieldNotInIndex() (result checkresult.Type, output string) {
 	if checkdata.LibraryPropertiesLoadError() != nil {

check/checkfunctions/library_test.go

@@ -82,6 +82,17 @@ func TestLibraryPropertiesNameFieldNotInIndex(t *testing.T) {
 	checkCheckFunction(LibraryPropertiesNameFieldNotInIndex, testTables, t)
 }
 
+func TestLibraryPropertiesUrlFieldDeadLink(t *testing.T) {
+	testTables := []checkFunctionTestTable{
+		{"Unable to load", "InvalidLibraryProperties", checkresult.NotRun, ""},
+		{"Bad URL", "BadURL", checkresult.Fail, "^Get \"http://invalid/\": dial tcp: lookup invalid:"},
+		{"HTTP error 404", "URL404", checkresult.Fail, "^404 Not Found$"},
+		{"Good URL", "Recursive", checkresult.Pass, ""},
+	}
+
+	checkCheckFunction(LibraryPropertiesUrlFieldDeadLink, testTables, t)
+}
+
 func TestLibraryPropertiesDependsFieldNotInIndex(t *testing.T) {
 	testTables := []checkFunctionTestTable{
 		{"Unable to load", "InvalidLibraryProperties", checkresult.NotRun, ""},

check/checkfunctions/testdata/libraries/BadURL/library.properties

@@ -0,0 +1,9 @@
+name=BadURL
+version=1.0.0
+author=Cristian Maglie <c.maglie@example.com>, Pippo Pluto <pippo@example.com>
+maintainer=Cristian Maglie <c.maglie@example.com>
+sentence=A library that makes coding a web server a breeze.
+paragraph=Supports HTTP1.1 and you can do GET and POST.
+category=Communication
+url=http://invalid/
+architectures=avr

check/checkfunctions/testdata/libraries/BadURL/src/BadURL.h

@@ -0,0 +1,10 @@
+name=Recursive
+version=1.0.0
+author=Cristian Maglie <c.maglie@example.com>, Pippo Pluto <pippo@example.com>
+maintainer=Cristian Maglie <c.maglie@example.com>
+sentence=A library that makes coding a web server a breeze.
+paragraph=Supports HTTP1.1 and you can do GET and POST.
+category=Communication
+url=http://example.com/
+architectures=avr
+includes=Recursive.h

check/checkfunctions/testdata/libraries/Recursive/library.properties

@@ -0,0 +1,9 @@
+name=URL404
+version=1.0.0
+author=Cristian Maglie <c.maglie@example.com>, Pippo Pluto <pippo@example.com>
+maintainer=Cristian Maglie <c.maglie@example.com>
+sentence=A library that makes coding a web server a breeze.
+paragraph=Supports HTTP1.1 and you can do GET and POST.
+category=Communication
+url=http://httpstat.us/404
+architectures=avr