15.4.1005  src/lib/src/sfprintf-unit-test.pkg

## sfprintf-unit-test.pkg

# Compiled by:
#     src/lib/test/unit-tests.lib

# Run by:
#     src/lib/test/all-unit-tests.pkg

package sfprintf_unit_test {

    include package   unit_test;                                                # unit_test                     is from   src/lib/src/unit-test.pkg

    name =  "src/lib/src/sfprintf-unit-test.pkg";

    fun run ()
        =
        {
            printf "\nDoing %s:\n" name;   

            assert( (sprintf "x") == "x" );

            assert( (sprintf  "%4s" "foo") == " foo" );
            assert( (sprintf "%-4s" "foo") == "foo " );

            summarize_unit_tests  name;
        };
};