newedge/liminix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

delete unused code

Browse Source
This commit is contained in:
Daniel Barlow
2024-06-01 22:43:48 +01:00
parent 53f57c1a8c
commit 04b068f7a3
2 changed files with 1 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
pkgs/devout/test.fnl
View File

@@ -246,35 +246,4 @@ MINOR=17")
))
;; tests for sysfs attrs
(example
"read attributes from sysfs"
(let [sysfs (sysfs "./fixtures/sys")]
;; finds attr at path
(expect=
(sysfs:attr "devices/pci0000:00/0000:00:14.0/usb1/1-2" "idVendor")
"1199")
;; finds attr in ancestor directory
(expect=
(sysfs:attrs
"devices/pci0000:00/0000:00:14.0/usb1/1-7/1-7:1.0/bluetooth/hci0"
"idVendor")
"8087")
;; nil if no attr
(expect=
(sysfs:attrs
"devices/pci0000:00/0000:00:14.0/usb1/1-7/1-7:1.0/bluetooth/hci0"
"idOfWizard")
nil)
;; closer ancestor wins against more distant one
(expect=
(sysfs:attrs
"devices/pci0000:00/0000:00:14.0/usb1/1-7/1-7:1.0/bluetooth/hci0"
"modalias")
"usb:v8087p0A2Bd0001dcE0dsc01dp01icE0isc01ip01in00")))
(if failed (os.exit 1) (print "OK"))