( require ' ert ) ( ert-deftest libmpdel-test-artist () ( let* (( artist ( libmpdel--artist-create :name "The Artist" )) ( album ( libmpdel--album-create :name "The Album" :artist artist )) ( song ( libmpdel--song-create :name "The song" :album album ))) ( should ( equal artist ( libmpdel-artist artist ))) ( should ( equal artist ( libmpdel-artist album ))) ( should ( equal artist ( libmpdel-artist song )))))