# --------------------------------------------------------------------------- # - SIO0005.als - # - afnix:sio module test unit - # --------------------------------------------------------------------------- # - This program is free software; you can redistribute it and/or modify - # - it provided that this copyright notice is kept intact. - # - - # - This program is distributed in the hope that it will be useful, but - # - without any warranty; without even the implied warranty of - # - merchantability or fitness for a particular purpose. In no event shall - # - the copyright holder be liable for any direct, indirect, incidental or - # - special damages arising in any way out of the use of this software. - # --------------------------------------------------------------------------- # - copyright (c) 1999-2007 amaury darsch - # --------------------------------------------------------------------------- # @info afnix:sio path test unit # @author amaury darsch # get the module interp:library "afnix-sio" # create an absolute pathn const path (afnix:sio:absolute-path "usr" "bin" "axi") # check th(afnix:sio:get-base-name path)e base name and path assert "axi" (afnix:sio:get-base-name path) assert (afnix:sio:absolute-path "usr" "bin") (afnix:sio:get-base-path path) # check extension assert "" (afnix:sio:get-extension path)