X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=mcs%2Fclass%2FMicrosoft.VisualBasic%2FTest%2Fstandalone%2F6587.vb;h=3da9844daafcaaf2db6ddf884cdb1c0e6fe38cc9;hb=13bbfef28c7175701866862dfd24b1ba044947a1;hp=97804abe0d57155bbdda1eeb6d6629acae12e96d;hpb=3108144fd6ff0314520d7701de2fe1b0b4b99953;p=mono.git diff --git a/mcs/class/Microsoft.VisualBasic/Test/standalone/6587.vb b/mcs/class/Microsoft.VisualBasic/Test/standalone/6587.vb index 97804abe0d5..3da9844daaf 100644 --- a/mcs/class/Microsoft.VisualBasic/Test/standalone/6587.vb +++ b/mcs/class/Microsoft.VisualBasic/Test/standalone/6587.vb @@ -1,32 +1,29 @@ - ' - ' Copyright (c) 2002-2003 Mainsoft Corporation. - ' - ' Permission is hereby granted, free of charge, to any person obtaining a - ' copy of this software and associated documentation files (the "Software"), - ' to deal in the Software without restriction, including without limitation - ' the rights to use, copy, modify, merge, publish, distribute, sublicense, - ' and/or sell copies of the Software, and to permit persons to whom the - ' Software is furnished to do so, subject to the following conditions: - ' - ' The above copyright notice and this permission notice shall be included in - ' all copies or substantial portions of the Software. - ' - ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR - ' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - ' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE - ' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER - ' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING - ' FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER - ' DEALINGS IN THE SOFTWARE. ' - - -Imports Microsoft.VisualBasic - -Public Class TestClass - Public Function Test() As String - 'BeginCode - Return CBool(TimeString.Length() > 0).ToString - 'EndCode - End Function -End Class + ' Copyright (c) 2002-2003 Mainsoft Corporation. + ' + ' Permission is hereby granted, free of charge, to any person obtaining a + ' copy of this software and associated documentation files (the "Software"), + ' to deal in the Software without restriction, including without limitation + ' the rights to use, copy, modify, merge, publish, distribute, sublicense, + ' and/or sell copies of the Software, and to permit persons to whom the + ' Software is furnished to do so, subject to the following conditions: + ' + ' The above copyright notice and this permission notice shall be included in + ' all copies or substantial portions of the Software. + ' + ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR + ' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, + ' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE + ' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER + ' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING + ' FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER + ' DEALINGS IN THE SOFTWARE. + ' +Imports Microsoft.VisualBasic +Public Class TestClass + Public Function Test() As String + 'BeginCode + Return CBool(TimeString.Length() > 0).ToString + 'EndCode + End Function +End Class